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TROUBLESHOOTING HINTS 


The Apple IEEE-488 Interface depends heavily on Applesoft and DOS for it's 
normal operation. There are interactions that occur because of this that 
aren't obvious. 


The IEEE card can only be used from within an Applesoft program. Trying to 


use it from command mode will always result in a SYNTAX ERROR because the 
Applesoft prompt "]" gets sent to the interface. 


One of the first commands in a new program should be "SCl'". ТЕ will cause 
the IEEE commands to be echoed to the screen for debugging purposes. When 
the device works properly, the "SCl" can be removed. 


Many IEEE devices require the REMOTE ENABLE command before they^ll play. 

If the device isn't enabled, it will handshake properly but they won't 
recognize their address on the bus and return a BUS ERROR the next time they 
are accessed. 


In some cases the "RA" command can be used to turn on all remote devices on 
the bus. Or the "RM address list" command can be used to enable selected 
devices. 
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INTEGER BASIC-AND THE X REGISTER IN MACHINE LANGUAGE ROUTINES 


Integer Basic uses the X register to keep track of where in the line of 
code it is. Machine language routines that can be called on from a 
multi-statement lines should save and restore the X register. 
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HOW TO PEEK AND POKE LOCATION 32768 


Integer Basic numbers are limited to the range -32767 to 32767. You can 
still access location 32768 by using -32767-1. 


PRINT PEEK (-32767-1) 
РОКЕ -32767-1,0 
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FIRMWARE CARD OPTIONS 


The Integer Basic firmware card was designed to supply Integer Basic to 
Apple II Plus owners. There are three options on the card that the user 


may select. 


The first and most obvious option is the switch on the rear of the card. 
It is used to force the selection of which bank of ROMs, the firmware card 
or the motherboard, will be used immediately after a system reset. If the 
switch is up then the system will default to Integer Basic, otherwise it 
will default to Applesoft. 


This can also be controlled by software by accessing address 5С080 to 
select Integer Basic and 5С081 to select Applesoft. DOS confuses things by 
forcing the version of BASIC it was last using every time it gets control, 
regardless of the position of the switch and DOS gets control immediately 
after a reset in a system with an Auto Start ROM. 


The second option concerns the monitor ROM. Between ICs B3 and В4 there is 
a solder circle divided into two pads with the label "F8" silk screened 
under it. If these pads are separated then the monitor ROM on the 
motherboard will always be used. But if the pads are connected then the 
old monitor ROM on the card will be used with Integer Basic. 


This can be interesting if you have an old monitor with your Integer Basic. 
If the switch is set to go to Integer Basic then the Apple will drop into 
the old monitor when you RESET it and while you are in Integer Basic the 
Auto Start monitor functions won't be available. 


The third option also concerns using your own language and monitor. Apple 
Computer uses 2316 type ROMs for all our firmware. However 2716 type (+5v 
only version) EPROMs can be used to replace the ROMs on the firmware card. 
There are two pairs of solder spots that can be connected to reconfigure 
the card for 2716s. They are in the upper right corner with a box drawn 
around them and "2716" written over it. The card can only use one type at 
a time, 2716s and 2316s cannot be mixed. 
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FIRMWARE CARD AND SYSTEM ERRORS 


Occasionally, peripheral cards with solder plated edge connectors collect 
some oxidation on the contact fingers which can cause an intermittent 
connection. This can result in various unusual and unexpected system 
errors when it happens to the Integer Basic Firmware Card. 


То clean off contacts, turn off the power and remove the cards. Using а 
soft pencil eraser ("Pink Pearl" or such), gently clean off the contacts. 
Replace the boards, seat firmly, then reboot the system. If this does not 
correct the problem, contact your dealer for assistance. 
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INTEGER BASIC = THE CODE IN $0808 - SDFFF 


When you boot an Apple II with the BASICS diskette or the DOS 3.3 System 
Master Diskette, Integer Basic and the Programmer’s Aid #1 are loaded into 
the Language Card. The code between Integer Basic and the Programmers Aid 
#1 (5080) ~ SDFFF) is loaded with a completely useless part of Applesoft. 
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INTRODUCTION ТО THE BASICS DISKETTE 


The Language System includes a diskette marked “BASICS”. When you boot 
with this diskette a program is run that looks to see which BASIC, 
Applesoft or Integer, is in the machine and then loads the Language card 
with the other language. This means that whichever BASIC you have, you 
will have access to the other. In addition, if you have an Apple II Plus, 
the code for the Programmer”s Aid #1 is also loaded into the card with 
Integer Basic. See your dealer for the Programmer”s Aid manual (А21,0011). 
Regular (non-Plus) Apples may still need to install a Programmer^s Aid #1 
ROM in socket DØ. If there is а ROM with part number 341-0016 then you 
already have the Programmer^s Aid #1. 
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USING THE OLD MONITOR WITH THE LANGUAGE CARD 


The Apple Language Card gives you all the advantages of the Auto Start ROM 
whether you have an Apple II or Apple II Plus. This is because there is an 
Auto Start ROM оп the Language Card that is used instead of the F8 ROM on 
the main board. There is no way to disable this ROM if you want to use the 
old monitor in an Apple II. However, there are still two ways to use the 
old monitor with the Language Card. 


The first and most obvious is to replace the Auto Start ROM on the Language 
Card with an old monitor ROM. In this case you lose the Auto Start ROMs 
features when in the Basic that is resident on the main board. The Basic 
that is loaded into the Language Card will still be working out of an image 
of the Auto Start ROM that was loaded with the Basic. For example, 
Applesoft would use the old monitor and Integer Basic would use the Auto 
start ROM. 


The second way will give you the old monitor while in the Basic that’s іп 
the Language Card but the Basic on the main board will still access the 
Auto Start ROM. All you need do is load an image of the old monitor into 
the Language Card yourself. This is a two step process. 


The hard part is to get an image of the old monitor into a DOS binary file. 
First, boot DOS 3.3 on an Apple II without a Language Card. Then type: 


INT 
BSAVE OLDMON, А5Е800, 1,5800 


Now all you need is a program or subroutine to load the monitor into the 
card. The following program fragment must be in Integer Basic if you have 
an Apple II or Applesoft if you have an Apple II Plus. It can be added to 
the HELLO or APPLESOFT program on the DOS 3.3 Master diskette. 


10 DS = "": REM CONTROL D 

20 А = PEEK ( -16255): А = РЕЕК ( -16255) 
30 PRINT DS; BLOAD OLDMON" 

40 А = PEEK ( -16254) 


The old monitor will stay there until you re-boot or reload the Language 
card. 
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BASIC PROGRAM AND VARIABLE STORAGE 


The Language Card сап”Е normally be used for Basic program or variable 


storage. It is mapped into the same memory addresses as the Basic 
interpreter, so when you turn on the Language Card the Basic interpreter is 
no longer available and the Apple will hang. 
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INTEGER BASIC = THE CODE IN 59800 - SDFFF 


When you boot an Apple II with the BASICS diskette or the DOS 3.3 System 
Master Diskette, Integer Basic and the Programmer”s Aid #1 are loaded into 
the Language Card. The code between Integer Basic and the Programmer’s Aid 
#1 ($0800 - SDFFF) is loaded with a completely useless part of Applesoft. 
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SILENTYPE PRINTER 


The Silentype dumps the Hi-Res screen whenever it is sent a control-Q. 

Once the Silentype has been selected with .PRINTER it is possible to change 
1675 parameters by using .DEPOSIT. Changing the direction parameter from 
bidirectional to unidirectional will result in significantly better 
graphics printing. Parameter changes stay in effect until a power cycle or 
Silentype cold start, so changes made to dump the graphics should be undone 
after the dump. 


A list of parameters with their addresses and possible values appears on 
page 45 of the Silentype manual. The decimal addresses in the manual are 
expressed as negative numbers. They can be converted for use with Logo by 
adding 65,536 (two to the sixteenth power). 


Here is a no-frills Dump with unidirectional printing: 


TO DUMP :STSLOT 

.PRINTER :STSLOT 

.DEPOSIT 65536 - 12529 128 
ТУРЕ CHAR 17 

.DEPOSIT 65536 - 12529 f 
.PRINTER @ 

END 


CHAR 17 is control-Q. :STSLOT should be set to the number of the slot that 
the Silentype interface is plugged into. 


То dump a negative copy of the screen, with black on the paper where there 
was white on the screen, change the appropriate parameter: 


TO NEGDUMP :STSLOT 
.PRINTER :STSLOT 

.DEPOSIT 65536 - 12529 128 
.DEPOSIT 65536 - 12524 0 
TYPE CHAR 17 

.DEPOSIT 65536 - 12529 f 
.DEPOSIT 65536 - 12524 255 
.PRINTER @ 

END 
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READING THE GRAPHICS SCREEN 


The following Logo code allows the user to determine the setting of the bit 
of the graphics screen directly under the turtle (HITP), or at any point 
(DOTP). This code may not give the expected results for colors other than 
black and white. HITP won”t always see the turtle if it is shown, depending 
on HEADING. 


ТО HITP 

LOCAL “ADDR 

MAKE “ADDR (.EXAMINE 916) + (.EXAMINE 127) + 256 * .ЕХАМІМЕ 128 
ОР BITP .ЕХАМІМЕ 917 .ЕХАМІМЕ :ADDR 

END 


TO RESTORE 

SETPOS :OLDPOS 
SETPEN :OLDPEN 

IF :OLDSHOWNP [ST] 
END 


TO BITP :BITSIG :ВҮТЕ 

IF NOT :BITSIG < 128 [MAKE “BITSIG :BITSIG -128] 

OP i = INT ((REMAINDER :BYTE 2 * :BITSIG) / :BITSIG) 
END 


TO DUMP :POSLIST 

LOCAL "OLDSHOWNP 

MAKE "OLDSUOWNP SHOWNP 
LOCAL "OLDPOS 

MAKE "OLDPOS POS 

LOCAL "OLDPEN 

MAKE "OLDPEN PEN 

PU 

HT 

SETPOS :POSLIST 

IF HITP [RESTORE OP "TRUE] 
RESTORE 

OP "FALSE 

END 
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SAVING GRAPHICS TO DISK 


The Hi-Res pictures can be saved to disk, at the expense of Logo and the 
user/s workspace. A DOS 3.3 slave diskette should be placed in the disk 
drive (refer to the DOS 3.3 manual for information on slave vs master 
diskettes). Assuming that the disk interface card is in slot 6, type 
.PRINTER 6 to Logo which boots the diskette. This trashes Logo and the 
user”s workspace but doesn’t damage the Hi-Res screen buffer. 


Now that the Apple is running Basic with DOS 3.3 in it^s memory, it is 
possible to save the Hi-Res screen buffer as a binary file: 


BSAVE «filename», А52000, 152908 
To view the picture, type: 


HGR 
BLOAD <filename> 
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CONVERTING TO APPLE WRITER /// 


Mail List Manager doesn't physically remove “deleted” records from the 
MLMDATA file. When the Apple Writer /// Utilities conversion program is 
used to convert the MLMDATA file to an Apple Writer /// file, those records 
at the end of MLMDATA, equal to the number of records deleted, are not 
converted. What you get in the Apple Writer /// file are the total number 
of records Mail List Manager knows about including deleted records and 
missing records equal to the number of records previously deleted. 


А way around the problem: 
When ready to convert to Apple Writer /// 


1. Merge Mailing List to another diskette (this will get 
rid of the deleted records). 


2. Convert to Apple Writer /// file with Apple Writer /// 
Utilities. 
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MICROCHESS AND DOS 3.3 


MICROCHESS is a 13 sector, copy protected diskette. This means that you 


will need to use the BASICS diskette or the BOOT13 program from the DOS 3.3 
master diskette to play MICROCHESS. 
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SPEEDING-UP PASCAL TEXT FILE READING 


The reading of Pascal text files is normally done with the statement using 
the READLN statement as in 


READLN (FILEID, STRINGVARIABLE); 


This operation can be made much faster by using the routines contained in 
the following program. Three procedures do the work. Their operation is 
explained, line-by-line, below: 


PROCEDURE FILLBUFFER; 


(* Fills the working buffer with data from the .TEXT file. *) 
BEGIN 

EMPTY := BLOCKREAD (INFILE,BUFFER,2) = f; 
(* Reads 2 blocks of the file into BUFFER and leaves the ж) 
(* variable EMPTY equal to zero if the end of file marker is *) 
(* not yet reached. | =) 


IF NOT EMPTY THEN BEGIN 
(* ТЕ there is still unprocessed data in the buffer, do this: *) 


AUINLLLS- = BUFSIZE + 
SCAN (- BUFSIZE, <> CHR(Ø), BUFFER [1923]); 
(% The length of a Pascal .TEXT file should always be іп mul- *) 


(* tiples of 2 blocks. Since strings (lines) do not span *) 
(* blocks, each block is likely to contain nulls (ASCII ZERO) *) 
(* at the end. This line returns the number of real char- *) 
(* acters in the file, and discards the null ones. *) 


BUFINDEX := 9; 
(* The working index into the buffer is reset to zero after ге- *) 
(* rilling the buffer. %) 
END; 
END 


PROCEDURE OPENFILE (FNAME: STRING); 
(* Opens the file using the name passed by calling procedure. х у 


ВЕСІМ 
IF ((POS(^.text^,FNAME) = 0) AND 
(POS(^.TEXT^ ,FNAME) = 0)) THEN 
FNAME := CONCAT (FNAME,~.TEXT”); 
(* Adds the .TEXT suffix if its not already there. ж) 


ВЕЗЕТ (INFILE, FNAME); 
(* Actually opens the referenced file. *) 
y ор 


(Continued) 
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FILLBUFFER;  FILLBUFFER; 


(* The first call to FILLBUFFER skips over the 2 blocks of *) 
(* header information on .TEXT files. The second call actually *) 
(* fills the buffer with information which will be used. *) 
END; 


PROCEDURE READFILE (VAR LINE: STRING); 

(* Reads from the file and returns a string at a time in the *) 
(* variable LINE. А word about the Pascal .TEXT file format: %) 
(* Lines are stored as ASCII characters terminated with car- *) 
(* riage returns. If a line contains any leading spaces, and *) 


(* most Pascal source files contain some, these spaces are *) 
(* “packed” into two bytes. The first byte is an ASCII DLE *) 
.* (decimal 16) signifying that the line is packed. The *) 
.* second byte is a count of spaces to be expanded. The *) 
(ж Editor unpacks these lines automatically, as does а READLN %) 
.* From a file. We do that operation ourselves in this *) 
2% srocedure. The increase in speed is because we are using %) 
с highly specialized routine whereas the READLN intrinsic *) 
.* is very general in nature; accepting strings, integers *) 
(Ж and reals from the keyboard as well as from files. Note *) 
2% chat this format is optimized for Pascal source files and *) 
.* it wastes two bytes for each and every line that does not ж) 
х contain leading spaces. х) 
„AR. ISDENT, LINELEN: INTEGER; 

(* INDENT is the number of space characters to add. LINELEN *) 
(% is the length of the new string to be formed. %) 


к BUFINDEX >= NOTNULLS THEN FLIULBUFFER; 
r the buffer needs refilling, go and get another buffer. *) 


іг NOT EMPTY THEN BEGIN 
к ii the file is not yet empty then do the following: *) 


LINELEN := SCAN (BUFSIZE, = CHR(13), BUFFER [ BLFINDEX]); 


(Ж Set LINELEN to the number of characters from the current *) 
(* buffer pointer position (BUFINDEX) to the next carriage х) 
(* return in the bufter. *) 


IF BUFFER [BUFINDEX] = CHR (16) THEN BEGIN 
(* ТЕ the character at the buffer index is an ASCII DLE then *) 
(* we have to unpack the leading spaces. *) 


INDENT := ORD (BUFFER [BUFINDEX + 1]) - 32; 


(* Set [NDENT to the number found at BUFINDEX + 1. (The *) 
(* of space characters to insert). ж) 
(Continued) 
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(RSR-*) 
LINE [Ø] := CHR (LINELEN + INDENT - 2); 
(*$а+*) 
(* Turn off Range Checking so we can manually change the ж) 


(% string length. Set the length of LINE to the number we had *) 
(* already gotten plus the number of spaces to unpack,  throw- *) 
(* ing away two bytes for the DLE and count bytes. Turn Range *) 
(* Checking back on. ж) 


LF INDENT > Ø THEN FILLCHAR (LINE [1], INDENT, ^ ^); 
(* If there are spaces then fill in the appropriate number of *) 
(* them, starting with the first position in the new string. *) 


IF LINELEN > 2 THEN MOVELEFT (BUFFER [BUFINDEX + 2], 

LINE [1 + INDENT], LINELEN - 2); 
(* If the string is more than 2 characters long then move the *) 
(* rest of it from the buffer into the string starting just *) 
(* after the leading spaces previously inserted. *) 


END ELSE BEGIN 


(* No DLE character was found. That means straight ASCII. *) 
Ca SR") 
LINE [0] := CHR (LINELEN); 
CESEN) 
(* Turn Range Checking off, set the length of the string to *) 
(* LINELEN, and turn Range Checking back оп. *) 


ТЕ LINELEN > ® THEN MOVELEFT (BUFFER [BUFINDEX], 
LINE [1], LINELEN); 
(* Move the characters from the buffer into LINE as above. *) 
END; 


BUFINDEX := BUFINDEX + LINELEN + 1; 
(* Sets the pointer to the first character of the next string *) 
(* in the buffer for the next time through. ж) 
END; 
END; 


Here^s a program that demonstrates the difference in speed between the two 
methods of reading strings: 


PROGRAM QUICKREAD; (* Very fast line read routine *) 
CONST BUFSIZE = 1024; 

BUFLEN = 1923; 

FILENAME = “ОМЕВТУ9.ТЕХТ”; 


(* Probably not on user disk *) 


(Continued) 
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N 
VAR LINE: STRING; 
INFILE: FILE; 
TEXTFILE: TEXT; | 
CH, OPTION: CHAR; en 
EMPTY, HELL FREEZES OVER: BOOLEAN; 
ERROR: u i INTEGER; 
NOTNULLS: $..BUFSIZE; 
(* # of non-null chars *) 
BUFINDEX: ß..BUFSIZE; 
(* Index within buffer *) 
BUFFER: PACKED ARRAY [9..BUFLEN] of CHAR; 
PROCEDURE FILLBUFFER; 
BEGIN 
EMPTY := BLOCKREAD (INFILE,BUFFER,2) = 9; 
IF NOT EMPTY THEN BEGIN 
NOTNULLS := BUFSIZE + SCAN (- BUFSIZE, <> СНЕ(0), 
BUFFER (1923]); 
BUFINDEX :- f; 
END; 
END; 
PROCEDURE OPENFILE (FNAME: STRING); 
BEGIN 
IF ((POS(^.text^,FNAME) = f) AND r 


(POS(^.TEXT^,FNAME) = Ø)) THEN 
FNAME := CONCAT (ЕМАМЕ, .ТЕХТ“); 
RESET (INFILE, FNAME); 
FILLBUFFER; FILLBUFFER; 
END; 


PROCEDURE READFILE (VAR LINE: STRING); 
VAR INDENT, 
LINELEN: INTEGER; 
BEGIN 
IF BUFINDEX >= NOTNULLS THEN FILLBUFFER; 
IF NOT EMPTY THEN BEGIN 
LINELEN := SCAN (BUFSIZE, = CHR(13), BUFFER [BUFINDEX]); 
IF BUFFER [BUFINDEX] = CHR (16) THEN BEGIN ^ 
INDENT := ORD (BUFFER [BUFINDEX + 1]) - 32; 
C®SR=*) 
LINE [Ø] := CHR (LINELEN + INDENT - 2); 
(лакта) 
ТЕ INDENT > Ø THEN FILLCHAR (LINE [1], INDENT, ^ ^); 
IF LINELEN > 2 THEN MOVELEFT (BUFFER [BUFINDEX + 2], 
LINE (1 + INDENT}, LINELEN ~ 2); 
END ELSE BEGIN 
(*$R-*) 
LINE [0] := CHR (LINELEN); 
(73875) 


(Continued) 
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ТЕ LINELEN > f THEN MOVELEFT (BUFFER [BUFINDEX], 
LINE [1], LINELEN); 
END; 
BUFINDEX := BUFINDEX + LINELEN + 1; 
END; 
END; 


PROCEDURE GETOPTION; 
BEGIN 


REPEAT 
WRITELN; 


WRITE (^OPTIONS: Q)uickread, R)eadln, E)xit ^); 
CH а“ 
READ (KEYBOARD, СН); 
UNTIL IH IN TO, ^q. ВЕ, tea 
IF CH IN [^£^, ^e^] THEN BEGIN 
PAGE (OUTPUT); 
RESET (INFILE, FILENAME); 
CLOSE (INFILE, PURGE); 
EXIT (PROGRAM); 


PROCEDURE PRINTFILE; 
BEGIN 
PAGE (OUTPUT); WRITELN; 
CASE CH OF 
"Du са BEGIN 
OPENFILE (FILENAME); 
REPEAT 
LINE: + 773 
READFILE (LINE); 
WRITELN (LINE); 
UNTIL EMPTY; 
CLOSE (INFILE); 
END; 
"Res: E BEGIN 
RESET (TEXTFILE, FILENAME); 
REPEAT 
READLN (TEXTFILE, LINE); 
WRITELN (LINE); 
UNTIL EOF (TEXTFILE); 
CLOSE (TEXTFILE); 
END; 
END; (* CASE *) 
END; 


(Continued) 
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PROCEDURE INIT; 
VAR TEMP: STRING; 
BEGIN 
PAGE (OUTPUT); WRITELN; 
WRITE (“One moment, please...^); 
REWRITE (TEXTFILE, FILENAME); 
WRITE (TEXTFILE, “This is a test file written to ^); 
WRITE (TEXTFILE, “demonstrate the 7); 
WRITE (7.7); 
WRITELN (TEXTFILE, ^"QUICKREAD" program.^); 
WRITE Се): 
WRITELN (TEXTFILE); 
TEMP Хә I meltiors. >: 
REPEAT 
WRITE (IEXTFILE, “TEST STRING --> ^); 
WRITELN (TEXTFILE, TEMP); 
DELETE TEMP, LENGTH X TEMP). 155; 
WRITE (^.^); 
UNTIL TEMP = ^^; 
NRLIELS DIEXIPIBE,. + AHHHHHhhhhhh....^); 
WRITELN (TEXTFILE); 
WRITE (TEXTFILE, ^Notice that using READLN takes much ^); 
wRITE (TEXTFILE, “more time”); 
wRITELN (TEXTFILE, ^ to read a long line”); 
WRITE Gow ЈЕ 
WRITELN (TEXTFILE, “than it takes to read a short опе.”); 
WRITE (7.7); 
CLOSE (TEXTFILE, LOCK); 


WRITELN; 
END; 
BEGIN 
INLT: (* write a temporary file for *) 
HELL FREEZES OVER := FALSE; (% A possibly valid assumption *) 
REPEAT u 
ӘЕТӘРТІОЫ5; (* Get users choice ж) 
РКЕЛТЕРБЕ: (* Print the file ж) 
UNTIL HELL FREEZES OVER; (* FOREVER!!! *) 
END. 
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SYSTEM CONFIGURATION 


A 48K Apple II or Apple II Plus with at least one disk drive and a 16К | 
memory expansion board like the Apple Language Card is required to гип the | 
Apple Pascal system. Other Apple interface cards may be added for | 
additional system functions such as printer, external terminal, modem, or | 
more disk drives. The Pascal system has specific slot assignments for the | 
various peripheral devices. Slot assignments are listed on page 277 of the | 
Pascal Operating System manual. | 


The Apple Pascal system comes configured to work with Apple interface 
cards. To use other types of interface cards, it may be necessary to 


modify the system or add additional driver routines. Pascal version 1.1 
has provision for attaching additional peripheral drivers through the use 
of the ATTACH utility. This utility program, along with extensive docu- 
mentation, is being supplied by the International Apple Core to all member 
user groups. Any and all such modifications are at the user^s own risk. 
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EXTRA LINEFEEDS ON PRINTER 


The double spacing effect on some printers when used with Pascal can be 
remedied by e(X)ecuting APPLE3:LINEFEED. This program can be transfered 
to the diskette you boot (usually APPLEl: or АРРЬЕЙ:) as SYSTEM.STARTUP 
and it will execute automatically when the system is booted. The text of 


this routine is also on the volume APPLE3: for inclusion in your own 
programs. 
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DEBUGGER 


The “Debug” feature in Pascal is not being supported by UCSD or Softech, 
Inc. and has not been implemented in Apple Pascal, version 1.1. 
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SAVING A HI-RES PICTURE TO A DISK FILE 


Pascal graphics does not provide built-in routines to load or save Che 
Hi-Res graphics screen to a disk file. The following program illustrates 
a simple method for saving and loading any Hi-Res screen created in a 
Pascal environment. 


PROGRAM DEMOPIC; 


ES 2) 
(ж | PROGRAM LOADS AND SAVES HI-RES SCREEN TO DISK *) 
(* 12/79 BASED ON "SLIDE SHOW" BY BILL ATKINSON *) 
(m к) 


USES TURTLEGRAPHICS, APPLESTUFF; 
CONST НТВЕЗРЕ = 8192; 


VAR CHEAT: RECORD CASE BOOLEAN ОЕ 


TRUE: (INTPART: INTEGER); 
FALSE: (PTRPART: ~INTEGER) ; 


END; 


PROCEDURE DRAWPICS; 


(x ж) 
(* DRAW SOME STUFF ON THE HI-RES SCREEN х) 
(% THLS CAN BE REPLACED WITH ANY GRAPHICS ROUTINE *) 
(* *) 
BEGIN 


MOVETO (0,0); PENCOLOR (WHITE); 

MOVETO (279,0); МОУЕТО (279,191); 

МОУЕТО (0,191); МОУЕТО (8,8); 

PENCOLOR (NONE); 

MOVETO (75,95); WSTRING (^ THIS IS A TEST ^); 

MOVETO (28,5); WSTRING (7< PRESS RETURN TO EXIT PROGRAM >”) 
END; 


PROCEDURE ERROR; 


(* к) 
(ж IF ERROR, PROGRAM WILL TERMINATE FROM HERE х) 
(* *) 
BEGIN 

TEXTMODE; 


WRITELN (“ERROR ENCOUNTERED - PROGRAM TERMINATED” ); 
EXIT (PROGRAM) 
END; 


(Continued) 
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PROCEDURE BLOAD (FILENAME: STRING); 


(* *) 
(* BLOCKREADS THE HI-RES BUFFER INTO MEMORY ж) 
CT ы? 
VAR I,IO: INTEGER; 
ES ВЕНЕ: 

BEGIN 

CHEAT.INTPART:-HIRESPI; 

RESET(F,FILENAME); (* OPEN FILE FOR INPUT %) 

CSS) 


IO: SBLOCKREAD(F,CHEAT.PTRPART^,16); 

I =LORESULT; 

(*SI+*) 

CLOSECE ): 

IF (I <> 0) OR (10 <> 16) THEN ERROR; 
END; 


PROCEDURE BSAVE (FILENAME:STRING); 


ыл 24 
(* SAVES HI-RES PICTURE TO DISK УТА BLOCKWRITE *) 
С *) 
VAR 1:10: INTEGER? 
Е: ELLE: 
BEGIN 
CHEAT. INTPART:=HIRESPI; 
REWRITE (F,FILENAME); (* OPEN NEW DISK FILE FOR OUTPUT *) 
(%51-%) 


LO:-BLOCKWRITE (F,CHEAT.PTRPART^,16); 

Г: ZIORESULT; 

dar Уу 

CLOSE (F,LOCK) 

iF (I <> f) OR (IO <> 16) THEN ERROR; 
0 


BEGIN (* MAIN PROGRAM *) 
INITIULRILE; 
DRAWPICS; 
BSAVE (^:DEMO.PIC^); 
FILLSCREEN (BLACK); (* CLEARS HI-RES SCREEN *) 
BLOAD (^:DEMO.PIC^); 
REPEAT UNTIL KEYPRESS; (* PAUSE ®) 
TEXTMODE 
END. 
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PASCAL EXPONENTS 


The calculation 10 ^ X is not included in the UCSD Pascal definition. The 


system intrinsic PWROFTEN ("power of ten") returns 10 ^ X, provided X is 
an integer in the range 9..37. Please refer to page 45 in the Pascal 
Language Reference manual. 


The function EXP (in the library unit TRANSCEN) is of the form e ^ X, 
where X is a real number. The relationship between 10 ^ X and e ^ X is: 


19 ^X =e ^ (X LN 19) (LN » natural log) 
Here is a simple program which illustrates the use of Pascal exponents: 
PROGRAM EXPONENT; 
USES TRANSCEND; 
BEGIN 
WRITELN (710 ^ 3 = ^,PWROFTEN(3)); 
WRITELN (^e ^ 3 = ^,EXP(3)); 


WRITELN (719 ^ 3 by the conversion = ~,EXP(3*LN(1@))); 
END, 
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CLEARING THE VIDEO SCREEN 


The routine CLEARSCREEN as described in Problem Solving Using Pascal, by 


Kenneth Bowles, is a system function of the UCSD computer facility. On 
the standard Apple screen, a similar function can be performed by the 
system intrinsic PAGE(OUTPUT), which issues a form feed. 


The following procedure can be used to clear the Apple”s screen. 


PROCEDURE CLEARSCREEN; 
BEGIN | 

WRITE (CHR(12)); 
END; 


CHR(12) is the character used to clear the standard Apple video screen, 
as shown in the SETUP program. This procedure may be modified for use 


with other external terminals by replacing CHR(12) with the appropriate 
control character (or characters) for "Erase Screen". 


APPLE TECH NOTES Copyright (C) 1981 by Apple Computer, Inc. 


q 


= —— = oes wii Йо ee ee cm ee m cm m m JA ee айы MA кə «на eee es шыш eee асап қар “қып ee ee ee ~ - m ee ee кәне | ee ee | ee ee 


REBOOTING PROBLEMS IN PASCAL 


If recurrent rebooting is a problem in your Pascal system, especially when 
typing into the editor, it may be due to hitting more than one key at 
once. Try slowing down to allow the first key to be released before 
typing the next one. When typing quickly, many people do not completely 
release one key before striking the next. If you try to press more than 
one key at a time, the keyboard encoder chip sees the logical AND of the 
keys currently being held down. The AND operation results in bits being 
turned off, so it is quite likely that many combinations of keys will 
result in an ASCII Ø (NUL), which is a BREAK in Pascal. 


The reason this doesn’t happen in Basic is that a NUL (ASCII f) entered 
from the keyboard has no function in Basic or DOS. If slowing down 
doesn’t help the problem, it may be due to memory errors, and it would be 


wise to have the hardware checked out. 


You may also use the SETUP program (found оп APPLE3:) to change the "Key 


for BREAK" parameter in SYSTEM.MISCINFO to an ASCII 127 (DLE). This 
character cannot be generated from the Apple keyboard, thereby effectively 
disabling the BREAK function. The RESET key will work normally. 
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INTERFACE CARDS IN PERIPHERAL SLOT £3 


If a Communications card, Serial card, or DC Hayes Micromodem card is 
placed in slot #3, the Pascal system will not appear to boot correctly on 
the standard Apple video. This is due to the fact that Pascal has 
recognized a card in slot #3, which is reserved for an external terainal, 
and is attempting to communicate with the terminal instead of the default 
CONSOLE and SYSTERM (video and keyboard). Other cards may also cause this 
effect, which can be easily remedied by removing the card from slot $3. 
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PASSING STRINGS TO AND FROM FUNCTIONS 


Question: 
Since functions cannot return a non-scalar variable, how does a function 


return a string? 


Answer: 

Strings can be passed to and from functions or assembly language routines 
by using the variable parameter. А VARiable (VAR) parameter is a 
pass-by-reference parameter. That is, the address of the parameter is 
passed. In contrast, when a value parameter is used, the value of the 
parameter is passed (See рр.87-90, Apple /// Pascal Programmer^s Manual, 
Volume 1). An example of passing a string to and from а functíon is listed 
below. Since parameter-passing rules are the same for procedures as for 
functions, a procedure could have been used sinilarly. The value returned 
by the function is used to determine the success of the function. This is 
a good programming convention to use when writing functions. 


PROCRAM PASS; 


VAR 1% INTEGER; 
STL: STRING; 
TABLE: ARRAY [9..50] OF STRING; (* For this program to run, ж) 
(* TABLE must be initialized %) 
(* prior to calling DOIT. *) 


FUNCTION DOIT (VAR ST2: STRING; INDEX: INTEGER): BOOLEAN; 
(* VAR designates ST2 as a VARiable parameter. *) 
BEGIN 
DOIT := TRUE; 
LF LENGTH(TABLE [INDEX]) = 0 THEN (* DOIT returns false if *) 


JOIT := FALSE (* the given епегу( INDEX) %) 
ZLSE ST2 := TABLE [INDEX] (* in the table is null. *) 
END; (* Else, it returns true. *) 
BEGIN 
FOR I := f TO 50 DO 
BEGIN (* 571 should be null unless *) 
БІ - (* DOIT alters it. k) 
IF DOIT(ST1,I) THEN (* If the array entry is not *) 
WRITELN(STL) (* null, print the string. *) 
END (* FOR *) 
END. 


NOTE #1: 
An individual element of a packed variable cannot be supplied as the 
actual parameter. See page 18 of the Apple Pascal Language Reference 
Manual. 


(Continued) 
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NOTE #2: 

The addresses of strings are ALWAYS passed to the procedure or function, 
whether the string is a VARiable parameter or a value parameter. Declaring 
the string parameter to be a VARiable parameter avoids copying the entire 
value of the string to the function, with the attendant memory and 
performance penalty. The programmer should bear in mind that, in general, 
it is good programming technique to use value parameters as much as 
possible, since this provides for maximum “decoupling” of function and 
calling program. 
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EXTERNAL TERMINAL SETUP 


Apple Pascal supports a variety of external terminals which can be used to 
display 80 character lines and upper/lower case. Pages 193-213 of the 
Apple Pascal Operating System reference manual describe the procedure for 
reconfiguring the Pascal system to communicate with the external terminal. 
You must bind the appropriate GOTO routine into SYSTEM.PASCAL using the 


program APPLE3:BINDER, and use APPLE3:SETUP to tailor your SYSTEM.MISCINFO 
file for the specific terminal parameters. 


The terminal may be connected to the Pascal system using the High-Speed 
Serial Card in place of the Communications Card. If the serial card is 
used, the eighth data bit (most significant bit) switch in the terminal 
MUST be set to Ø. Refer to the operating manual or contact the 
manufacturer for the location of this switch. With the serial card, all 


type-ahead is eliminated. 


МӘЛХО THE SETUP PROGRAM 


The program SETUP is located on the diskette APPLE3. When executed, it 
will read in the current SYSTEM.MISCINFO. You may change a single 
parameter, or edit the entire file. To edit all the parameters, type "С 
(Change), and then "Р" (Prompted). If you need instructions, type "Н" 
(Help), or "T" (Teach). These instructions are detailed on pages 199-213 
of the Pascal Operating System Reference Manual. 


То leave editing mode prior to the end of the file, type "!" (Abort). 
Then type "Q", "Q" (to get to the exit/update level). To leave without 
updating, simply type "E". If you wish to test your setup, but not save 
che file on disk, type "М", then "E". То make a permanent record of your 
changes, type "р", then "E". A file named NEW.MISCINFO will be placed on 
your boot disk. 


If vou wish to edit a single parameter, type "C", then "S" (Single). Type 
the exact name of the field you wish to edit, exactly as it appears below. 
These parameters are explained in the following sections, arranged by their 
general function. 

SYSTEM.MISCINFO SCREEN CONTROL FUNCTIONS 

Backspace 

Sent to screen to move cursor left one space without altering the text. 
Normal setting for Apple ІІ: CTRL-H (BS). 

Erase Line 


Sent to screen to erase entire line where cursor is positioned. Not used 
in the Apple II and should be set to NUL (ASCII 9). 
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Lrase Screen 
Erases screen and places cursor at "home" position, the upper left corner 
of the screen. Normal setting:  CTRL-L (FF). 


Erase to End of Line 
Sent to screen to clear from cursor position to end of line. Normal 


setting: CTRL-] (65). 


Erase to End of Screen 
Clears screen from cursor position to end of screen. Normal setting: 
TRL-K (УТ). 


Has Random Cursor Addressing 
TRUE for video terminals only (TRUE for Apple video). Enables use of 
"GOTOXY" sequence. 


Lead-in to screen 
Prefix character for dual-character screen control functions, if any. Set 
to NUL (ASCII Ø) if no lead-in is being used. 


Move Cursor Home 
Sent to screen to home cursor to “home” position in upper left corner. 
Normal setting: CTRL-Y (EM). 


Move Cursor Right 
Moves cursor right one space. Normal setting: CTRL-\ (FS). 


Move Cursor Up 
Moves cursor up one line. Normal setting:  CTRL- (US). 


Screen Heíght 
Number of lines displayed on terminal. Set to ® for hard-copy terminal or 
«here paging is not appropriate. Setting is 24 (decimal) for Apple II. 


Screen Width 

Number of characters displayed on each line. Usually set to 80 for most 
terminals, 79 will allow nearly all of the Pascal window to be displayed 
while generating shortened prompt lines and messages which are better 
suited for а 4ß-character line. 


SYSTEM.MISCINFO KEYBOARD FUNCTIONS 


Has Lower Case 
FALSE for Apple II keyboard. Set to TRUE if external terminal can generate 


lower case from its keyboard. 


Key for Break 
Character typed to send BREAK to system. Not used in Apple II and should 
be set to NUL (ASCII f). 
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Key for Flush 

Character typed to cancel console output. Processing continues without 
output until FLUSH character typed again, or until file KEYBOARD is 
accessed. Normal setting:  CTRL-F (ACK). 


Key for Stop 
Stops output processing. This is useful when information is streaming out 
to the console faster than you can read. Output resumes when STOP is 


toggled again. Normal setting: CTRL-S (DC3). 


Key to Delete Character 
Causes one character to be removed from current line until nothing is left 


on line. Normal setting: CTRL-H (BS). 


Key to Delete Line 
Cancels current line of input. Normal setting: CTRL-X (CAN). 


Key to End File 
Console EOF character. When reading from KEYBOARD or INPUT, this character 
will set EOF=TRUE. Normal setting: CTRL-C (ETX). 


Lead-in from Keyboard 
Prefix character for dual-character sequences (if any) generated on 
keyboard. Set to NUL (ASCII 0) if no lead-in is being used. 


Key to Move Cursor Down 
Character typed to move cursor down one line. On many terminals, this 
corresponds to the down-arrow. Apple keyboard setting: CTRL-L (FF). 


Key to Move Cursor Left 
Character typed to move cursor left one space. On many terminals this 
corresponds to the left-arrow. Apple keyboard setting: CTRL-H (BS). 


Key to Move Cursor Right 

Character typed to move cursor right one space. On many terminals, this 
corresponds to the right-arrow. Apple keyboard setting: CTRL-U (МАК). 
Key to Move Cursor Up 


Character typed to move cursor up one line. On many terminals, this 
corresponds to the up-arrow. Apple keyboard setting: CTRL-O (SI). 


SYSTEM.MISCINFO EDITOR FUNCTIONS 
Editor "Accept" Key 


Character typed to confirm last action, e. g., accept text inserted, 
deleted, exchanged, etc. Normal setting:  CIRL-C (ETX). 
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Editor "Escape" Key 
Character typed to instruct editor to ignore (escape) ali actions performed 
since last "accept". Normal setting: ESCAPE (ESC). 


Non-printing Character 
Symbol displayed on screen to indicate presence of non-printable character 
(such as control characters). Normal setting:  "?". 


SYSTEM.MISCINFO HARDWARE FUNCTIONS 


Has 851ЙА 
Always FALSE for Apple II. 


Has Byte-Flipped Machine 

Always FALSE for the Apple II. The Apple II reads data low-byte first. 
Byte~flipped machines read data high-byte first. (This parameter is not 
included in the SETUP program.) 


Has Clock 
Always FALSE for Apple ІІ. No provision for an accessory real-time clock 
has been made in the operating system. 


SYSTEM.MISCINFO OPERATING SYSTEM PARAMETERS 


Has Slow Terminal 
Should be TRUE for terminal running at 600 baud or less. This will issue 
shortened prompts and messages. FALSE for Apple II. 


Student 

Instructs operating system to simplify operation for the novice. An 
example would be a default entry into the Editor if a compile error is 
encountered. May also disallow entry into certain portions of the system. 
Should be set to FALSE for Apple ТТ. 


Vertical Move Delay 


Number of nulls (ASCII Й) to be sent after each carriage return, Erase to 
End of Line, or Erase to End of Screen to allow cursor to complete movement 


before additional characters are sent. Set to NUL (ASCII 0) for Apple II. 


(Continued } 


APPLE TECH NOTES Copyright (С) 1981 by Apple Computer, Inc. 


РР РОСТ 7 т х “7 х бб жын кенің ee am и 


"O ce | | у ee ee ний ций -yp тінін le ee ey c umm жәні amni ӨНЕР тј тј | ts ei және кәне ee am ee mcm oc ee A НЬ "UH PU «кә <i> ота "UD A ee нә ee ШШШ қ» Ч 


SYSTEM.MISCINFO PREFIXED PARAMETERS 


The following parameters indicate whether or not the control function is 
to be prefixed by the lead-in character. Set to FALSE if no lead-in is 
required (as in the case of control characters), and TRUE if the lead-in 
is needed (ESC sequences, for example). 


PREFIXED[Delete Character] 
PREFIXED[Editor “Accept” Key] 
PREFIXED[Editor “Escape” Key] (This entry is different!) 
PREFIXED[Erase Line] 
PREFIXED[Erase Screen] 
PREFIXED[Erase to End of Line] 
PREFIXED(Erase to End of Screen] 
PREFIXED[Key for Break] 
PREFIXED[Key for Flush] 
PREFIXED[Key to Move Cursor Down] 
PREFIXED(Key to Move Cursor Left] 
PREFIXED[Key to Move Cursor Right] 
PREFIXED(Key to Move Cursor Up] 
PREFIXED[Key for Stop] 
PREFIXED(Key to Delete Character] 
PREFIXED[Key to Delete Line] 
PREFIXED[Key to End File] 
PREFIXED[Move Cursor Home] 
PREFIXED[Move Cursor Right] 
PREFIXED[Move Cursor Up] 
PREFIXED[Non-printing Character] 
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Apple Standard Video and Keyboard Setup Parameters 


GOTO Code 


The system is already configured for the Apple keyboard and video. 
These are the "normal" settings suggested in 
the previous sections which describe the setup parameters. 


modifications are necessary. 


Parameter Values 


Backspace 
Editor "Accept" 
Editor "Escape" 
Erase Line 
Erase Screen 
Erase to End of 
Erase to End of 
Has 85194 

Has Clock 

Has Lower Case 
Has Random Cursor Addr. 
Has Slow Terminal 

Key for Break 

Key for Flush 

Key Гог Stop 

Key to Delete Character 
Key to Delete Line 

Key to End File 

Key to Move Cursor Down 
Key to Move Cursor Left 
Key to Move Cursor Right 
Key to Move Cursor Up 
Lead-ín from Keyboard 
Lead-in to Screen 

Move Cursor Home 

Move Cursor Right 

Move Cursor Up 
Non-printing Character 


Key 
Key 


Line 
Screen 


APPLE TECH NOTES 
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CTRL-H 
CTRL-C 
ESC 
NUL 
CTRL-L 
CTRL-] 
CTRL-K 
FALSE 
FALSE 
FALSE 
TRUE 
FALSE 
NUL 
CTRL-F 
CTRL-S 
CTRL-H 
CTRL-X 
CTRL-C 
CTRL-L 
СТВЕ-Н 
CTRL-U 
CTRL-O 
NEE 
NUL 
CTRL-Y 
CTRL-\ 
CIRDES. 


ном 


(08) 
(03) 
(27) 
(09) 
(12) 
(29) 
(11) 


(99) 
(6) 
(19) 
(88) 
(24) 
(93) 
(12) 
(08) 
(21) 
(15) 
(09) 
(09) 
23) 
(28) 
(31) 
(63) 


ххх 


NO 


These may be 
altered by 

the user for 
convenience. 
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Apple Standard Video and Keyboard Setup Parameters 


APPLE TECH NOTES 


PREFIXED{ Delete Character | FALSE 
PREFIXED[Editor "Accept" Key] FALSE 
PREFIXED[ Editor “Escape” Key] FALSE 
PREFIXED([ Erase Line] FALSE 
PREFIXED[Erase Screen] FALSE 
PREFLXED[Erase to End of Line] FALSE 
PREFIXED|Erase to End of Screen] FALSE 
PREFIXED[Key for Break] FALSE 
PREFIXED[Key for Flush] FALSE 
PREFIXED[Key to Move Cursor Down| FALSE 
PREFIXED[Key to Move Cursor Left] FALSE 
PREFIXED[Key to Move Cursor Right] FALSE 
PREFIXED[Key to Move Cursor Up] FALSE 
PREFIXED[Key for Stop] FALSE 
PREFIXED[Key to Delete Character] FALSE 
PREFIXED[Key to Delete Line] FALSE 
PREFIXED(Key to End File] FALSE 
PREFIXED[Move Cursor Home] FALSE 
PREFIXED{Move Cursor Right] FALSE 
PREFIXED[Move Cursor Up] FALSE 
PREFIXED[Non-printing Character] FALSE 
Screen Height 24 

Screen Width 79 

Student FALSE 
Vertical Move Delay И 
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Soroc 10120 Terminal Setup Parameters 


GOTO Code 


Use APPLE3:SOROC.GOTO No modifications are necessary. 


Parameter Values 


Backspace CTRL-H (08) 
Editor "Accept" Key CTRL-C (83) 
Editor "Escape" Key ESC (27) 
Erase Line NUL (00) 
Erase Screen "ж" (42) 
Erase to End of Line pé x (84) 
Erase to End of Screen “ү” (89) 
Has 851@A FALSE 
Has Clock FALSE 
lias Lower Case TRUE 
Has Random Cursor Addr. TRUE 
Has Slow Terminal FALSE 
Key for Break NUL (00) 
Key for Flush CTRL-F (96) 
Key for Stop CTRL-S (19) 
Key to Delete Character CTRL-H (98) 
Key to Delete Line DEL (127) 
Key to End File CTRL-C (93) 
Key to Move Cursor Down CTRL-J (104) * These may be 
Key to Move Cursor Left CTRL-H (08) % altered by 
Key to Move Cursor Right CTRL-L (12) * the user for 
Key to Move Cursor Up CTRL-K (11) * convenience. 
Lead-in from Keyboard NUL (00) 
Lead-in to Screen ESC (27) 
Move Cursor Home CTRL-^ (30) 
Move Cursor Right GIRL-L (12) 
Move Cursor Up CIRL-K (11) 
Non-printing Character TR (63) 
(Continued) 
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Зогос 10120 Terminal Setup Parameters 


ows .r 


APPLE TECH NOTES 


PREFIXED[Delete Character] FALSE 
PREFIXED[Editor "Accept" Key] FALSE 
PREFIXED[Editor “Escape” Key] FALSE 
PREFIXED[Erase Line] FALSE 
PREFLXED{Erase Screen] TRUE 
PREFIXED[Erase to End of Line] TRUE 
PREFIXED[Erase to End of Screen] TRUE 
PREFIXED(Key for Break] FALSE 
PREFIXED[Key for Flush] FALSE 
PREFIXED[Key to Move Cursor Down] FALSE 
PREFIXED[Key to Move Cursor Left] FALSE 
PREFIXED[Key to Move Cursor Right] FALSE 
PREFIXED[(Key to Move Cursor Up] FALSE 
PREFIXED[Key for Stop] FALSE 
PREFIXED[Key to Delete Character] FALSE 
PREFIXED[Key to Delete Line] FALSE 
PREFIXED[Key to End File] FALSE 
PREFIXED[Move Cursor Home] FALSE 
PREFIXED[Move Cursor Right] FALSE 
PREFIXED[Move Cursor Up] FALSE 
PREFIXED[Non-printing Character] FALSE 
Screen Height 24 
Screen Width 86 
Student FALSE 
Vertical Move Delay 0 
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Hazeltine 1500 Terminal 


GOTO Code 


use APPLEJ:HAZEL.GOTO 


Parameter Vaiues 


Backspace 


а аер 
editor 


“Accept” 
"Escape" 


Erase Line 
“rase Screen 


Erase to End of 
erase to End of 
85 ДА 

CIODCK 

Lower Case 
Random Cursor Addr. 
Slow Terminal 
tor Break 

tor Flush 

for Stop 


das 
uas 
Has 
das 
цаз 
кеу 
кеу 
хеу 
кеу 
хеу 
NEV 
кеу 
xey 
кеу 
Kev 


to 
tO 
to 
to 
to 
to 
со 


Кеу 
Кеу 


Line 
Screen 


Delete Character 


Delete Line 
End File 

Move Cursor 
Move Cursor 
Move Cursor 
Move Cursor 


Down 
Left 
Right 
Up 


_ead-in from Keyboard 
Lead-in to Screen 


Move 
Move 
Move 


Cursor 
Cursor Right 
Cursor Up 


Home 


Non-printing Character 


APPLE TECH 


NOTES 


Setup Parameters 


No modifications are 
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necessary. 


CTRL-H (98) 


CTRL-C (93) 
ESC (27) 
NUL (#0) 
CTRL-\ (28) 
CTRL-O (15) 
CTRL-X (24) 
FALSE 

FALSE 

TRUE 

TRUE 

FALSE 

NUL (00) 
CTRL-F (06) 
CTRL-S (19) 
CTRL-H (98) 
DEL (127) 


CTRL-C (93) 
CTRL-K (11) 
CTRL-H (08) 
CTRL-P (16) 
CTRL-L (12) 
NUL (99) 
меча (126) 
CTRL-R (18) 
CTRL-P (16) 
CTRL-L (12) 
"2" (63) 


жж жж 


Ё— 
\ 
em 
These may be ыз 
altered by 
the user for 
convenience. 
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Hazeltine 1500 Terminal Setup Parameters 


PREFIXED[Delete Character] FALSE 
PREFIXED[Editor "Accept" Key] FALSE 
PREFIXED[Editor “Escape” Key] FALSE 
PREFIXED{Erase Line] FALSE 
PREFIXED[Erase Screen] TRUE 
PREFIXED[Erase to End of Line] TRUE 
PREFIXED[Erase to End of Screen} TRUE 
PREFIXED[Key for Break] FALSE 
PREFIXED[Key for Flush] FALSE 
PREFIXED[Key to Move Cursor Down] FALSE 
PREFIXED(Key to Move Cursor Left] FALSE 
PREFIXED[Key to Move Cursor Right] FALSE 
PREFIXED[Key to Move Cursor Up] FALSE 
PREFIXED[Key for Stop] FALSE 
PREFIXED[Key to Delete Character] FALSE 
PREFIXED[Key to Delete Line} FALSE 
РВЕЕТХЕО {Кеу to End File] FALSE 
PREFIXED[Move Cursor Home] TRUE 
PREFIXED[Move Cursor Right] FALSE 
PREFIXED[Move Cursor Up] TRUE 
PREFIXED[Non-printing Character] FALSE 
Screen Height 24 
Screen Width 89 
Student FALSE 
Vertical Move Delay 9 


ADDITIONAL NOTES 

Ihe four parity switches must be set to OFF. The CR/Auto LF switch must be 
set to CR. These DIP switches are located beneath the front panel plate of 
the terminal. 


(Continued) 
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Hazeltine 1518 Terminal Setup Parameters 


GOTO Code 


Use APPLE3:HAZEL.GOTO No modifications are necessary. 


Parameter Values 


Backspace CTRL-H (08) 
Editor "Accept" Key CTRL-C (03) 
Editor "Escape" Key ESC (27) 
Erase Line NUL (09) 
Erase Screen CTRL-X (28) 
Erase to End of Line CTRL-O (15) 
Erase to End of Screen CTRL-X (24) 
Has 851@A FALSE 
Has Clock FALSE 
Has Lower Case TRUE 
Has Random Cursor Addr. TRUE 
Has Slow Terminal FALSE 
Key for Break NUL (09) 
Key for Flush CTRL-F (06) 
Key for Stop CTRL-S (19) 
Key to Delete Character CTRL-H (08) 
Key to Delete Líne DEL (127) 
Kev to End File CTRL-C (03) 
Key to Move Cursor Down CTRL-K (11) * These may be 
Key to Move Cursor Left CTRL-H (68) * altered by 
Key to Move Cursor Right CTRL-P (16) * the user for 
Key to Move Cursor Up CTRL-L (12) * convenience. 
Lead-in from Keyboard mm (126) 
Lead-in to Screen ur (126) 
Move Cursor Home CTRL-R (18) 
Move Cursor Right CLAL=F CI) 
Move Cursor Up CIRL-L (12) 
Non-printing Character a (63) 
(Continued) 
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Hazeltine 1510 Terminal Setup Parameters 


APPLE TECH NOTES 


PREFIXED(Delete Character] FALSE 
PREFIXED[Edítor "Accept" Key] FALSE 
PREFIXED[Editor “Escape” Key] FALSE 
PREFIXED[Erase Line] FALSE 
PREFIXED(Erase Screen] ТВОЕ 
PREFIXED[Erase to End of Line] TRUE 
PREFIXED[Erase to End of Screen] TRUE 
PREFIXED[Key for Break] FALSE 
PREFIXED[Key for Flush] FALSE 
PREFIXED[Key to Move Cursor Down] TRUE 
PREFLXED(Key to Move Cursor Left] FALSE 
PREFIXED[Key to Move Cursor Right] FALSE 
PREFIXED[Key to Move Cursor Up] TRUE 
PREFIXED[Key for Stop] FALSE 
PREFIXED[Key to Delete Character] FALSE 
PREFIXED[Key to Delete Line] FALSE 
PREFIXED[Key to End File] FALSE 
PREFIXED[Move Cursor Home] TRUE 
PREFIXED{Move Cursor Right] FALSE 
PREFIXED{Move Cursor Up] TRUE 
PREFIXED(Non-printing Character] FALSE 
Screen Height 24 
Screen Width 80 
Student FALSE 
Vertical Move Delay 0 
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IBM 3191-22 Terminal Setup Parameters 


GOTO Code 


(59068) 

PROGRAM GOXY; (* For ІВМ-3010-22 *) 

PROCEDURE FGOTOXY( X,Y: INTEGER); 

VAR SEND: PACKED ARRAY [@..3] OF @..255; 

BEGIN 
IF X>79 THEN X:=79 ELSE IF X<Ø THEN X:=0; 
ТЕ Y>23 THEN Y:=23 ELSE IF Y<@ THEN Y:=9; 
SEND(@]:=27; (* Lead-in *) SEND[1]:=ORD(“Y7); 


SEND[ 2] :=32+X; SEND[3]:=32+Y; 
UNITWRITE(2,SEND,4) 
END; 


SEGIN (* Dummy Main *) 
END. 


Parameter Values 


Backspace CTRL-H (08) 
Editor “Accept” Key CTRL-C (03) 
Editor "Escape" Key CTRE-Q ALE) 
Erase Line 707 (79) 
Erase Screen Uo (76) 
Erase to End of Line TI (73) 
Erase to End of Screen wb (74) 
Has 851A FALSE 
tias Clock FALSE 
Has Lower Case ЈАКЕ 
Has Random Cursor Addr. TRUE 
Has Slow Terminal FALSE 
Key for Break NUL (09) 
Key for Flush CTRL-F (#6) 
Key for Stop CTRL-S (19) 
Key to Delete Character CTRL-H (08) 
Key to Delete Line CTRL-X (24) 
Key to End File CTRL-C (03) 
Key to Move Cursor Down "B (66) * These may be 
Key to Move Cursor Left "D" (68) * altered by 
Key to Move Cursor Right 7%” (67) * the user for 
Key to Move Cursor Up ТА" (65) * convenience. 
Lead~in from Keyboard ESC (27) 
Lead-in to Screen ESC (27) 
(Continued) 
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IBM 3191-22 Terminal Setup Parameters 


APPLE TECH NOTES 


Move Cursor Home ТЕ. (72) 
Move Cursor Right “2: (67) 
Move Cursor Up "AU (65) 
Non-printing Character io n (63) 
PREFIXED[Delete Character] FALSE 
PREFIXED[Editor "Accept" Key] FALSE 
PREFIXED[Editor “Escape” Key] FALSE 
PREFIXED[Erase Line] TRUE 
PREFIXED[Erase Screen] TRUE 
PREFIXED[Erase to End of Line] TRUE 
PREFIXED[Erase to End of Screen] TRUE 
PREFIXED[Key for Break} FALSE 
PREFIXED[Key for Flush] FALSE 
PREFIXED[Key to Move Cursor Down] TRUE 
PREFIXED[Key to Move Cursor Left] TRUE 
PREFIXED{Key to Move Cursor Right] TRUE 
PREFIXED[Key to Move Cursor Up] TRUE 
PREFIXED[Key for Stop] FALSE 
PREFIXED[Key to Delete Character] FALSE 
PREFIXED[Key to Delete Line] FALSE 
PREFIXED(Key to End File] FALSE 
PREFIXED[Move Cursor Home] TRUE 
PREFIXED{Move Cursor Right]: TRUE 
PREFIXED[Move Cursor Up] ТВОЕ 
PREFIXED(Non-printing Character} FALSE 
Screen Height 24 

Screen Width 80 

Student FALSE 
Vertical Move Delay 


(Continued) 
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УС 494 Terminal Setup Parameters 


GOTO Code 


(*SU-*) 

PROGRAM GOXY; (* For VC 404 Video Terminal *) 

PROCEDURE FGOTOXY(X,Y: INTEGER); 

VAR SEND: PACKED ARRAY [0..2] OF 0..255; 

BEGIN 
IF X>79 THEN X:=79 ELSE IF X<@ THEN X:=0; 
ТЕ Y>23 THEN Y:=23 ELSE IF Y<f THEN Ү:=# 
SEND(9]:216; (* Lead-in and DCl *) 
SEND[1] 2: =32+Y; SEND[2]:=32+X; 
UNITWRITE(2,SEND,3,@,12) 

END; 


BEGIN (* DUMMY MAIN *) 
END. 


Parameter Values 


Backspace CTRL-H ($8) 
Editor "Accept" Key CTRL-C ($3) 
Editor "Escape" Key ESC (of) 
Erase Line NUL (09) 
Erase Screen CTRL-X (24) 
Erase to End of Line CTRL-V (22) 
Erase to End of Screen CTRL-W (23) 
Has 8519A FALSE 
Has Clock FALSE 
Has Lower Case TRUE 
Has Random Cursor Addr. TRUE 
Has Slow Terminal FALSE 
Key for Break NUL ( 00) 
Key for Flush CTRL-F (06) 
Key for Stop CRESS. CL9J 
Key to Delete Character CTRL-H (08) 
Key to Delete Line CTRL-X (24) 
Key to End File CTRL-C (03) 
Key to Move Cursor Down CTRL-J (18) * These may be 
Key to Move Cursor Left CTRL-H (08) * altered by 
Key to Move Cursor Right CTRL-U (21) * the user for 
Key to Move Cursor Up CTRL-Z (26) * convenience. 
Lead-in from Keyboard NUL (99) 
Lead-in to Screen NUL (00) 
(Continued) 
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Issued 1 Oct 81 Pascal Animation Tools Page 6000.001.01 


PASCAL ANIMATION TOOLS AND THE APPLE /// 


The Pascal Animation Tools package won't work on the Apple /// in emulation 
mode because it is written in Pascal and there is no Language Card in the 


Apple ///. 
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PROBLEM WITH THE FILER 
When trying to acess the FILER, snow appears on the screen. This was 


caused by having a faulty copy of the Filer. A quick fix is to transfer 
а copy of the standard Pascal Filer from the APPLEl: diskette. 
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SAVING CHARACTER SETS 


The most common problem when saving a character set is that the user is 
saving to the default volume. The default volume is the PASCAL ANIMATION 
master diskette which is write protected. Be sure to specify another 
diskette. 


The second most common problem is having trouble loading a character set 


from disk. Usually this is caused by trying to execute the previously 
defined character set instead of editing it. 


APPLE TECH NOTES Copyright (C) 1982 by Apple Computer, Inc. 


+ 
О . ЖА. d 


AAA өш» m ree eee тайы == cum le ee di 


тш = — ee ee ee he A A es ee ee ee чн GAP HD (M cmm a a ee жы» ee ee m m m m m m ee ee p p cc — — — — —— ———— — ees 


MUST BE VERSION 1.0 PASCAL 


The Pascal Animation Tools package contains a specially modified copy of 
the version 1.® console routines. The user will have to locate a copy of 
the Pascal version 1.0 system diskettes to be able to use the package. 
There is no way to use the Animation Tools under Pascal version 1.1. 
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RESIDENT AND NOLOAD COMPILER OPTIONS WITH INTRINSIC UNITS 


Intrinsic units can be treated as segments (overlays) in Apple Pascal 
version l.l by using the noload (*$N+*) and the resident (*$R unit name*) 
compiler options. Units specified by these options are read in from the 
disk only when a reference is made to code contained within the unit. 
When the calling procedure is exited, and all active references to the 
unit have been resolved, the unit is "swapped out", and the memory range 
can be used for other code segments. For more details on the use of 
these options, refer to pages 66-67 of the Pascal Language Reference 
Manual, and the Language Manual addendum. 


When using the noload option, the unit code will remain in memory until 
the calling procedure is exited. This may result in a stack overflow 
(out of memory) if the unit is called repeatedly from inside the same 


procedure, without exiting. This is a known problem, and can be avoided 
by specifying the unit as "Resident" within that procedure or segment. 
Calling the unit from within a different procedure will also remedy this. 
The following examples illustrate this situation: 


EXAMPLE A: Will generate an out of memory STACK OVERFLOW error by 
repeatedly loading APPLESTUFF. 


PROGRAM EXAMPLEA; 
USES APPLESTUFF; 
VAR I: INTEGER; 


BEGIN (% MAIN PROGRAM %) 
НОРА) 
WRITE (“NUMBER OF WORDS AVAILABLE АТ START OF PROGRAM : 7); 
WRITELN (MEMAVAIL); 
FOR I:-1 TO 100 DO BEGIN 
WRITELN (I,^ ^,MEMAVAIL,^ WORDS”); 
NOTE (25,1) (* APPLESTUFF MUSIC ROUTINE *) 
END; 
WRITELN (“PROGRAM COMPLETED SUCCESSFULLY^) 
END. (* MAIN PROGRAM *) 


(Continued) 
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B: Uses the RESIDENT OPTION to prevent APPLESTUFF from being 
reloaded. 


PROGRAM EXAMPLEB; 
USES APPLESTUFF; 
VAR L: INTEGER; 


BEGIN (* MAIN PROGRAM *) 
(SEEN) 
(*SR APPLESTUFF *) 
WRITE (“NUMBER OF WORDS AVAILABLE AT START OF PROGRAM : ^); 
WRITELN (MEMAVAIL); 
FOR I:-1 TO 10) DO BEGIN 
WRITELN (I,^ ^,MEMAVAIL,^ WORDS”); 
NOTE (25,1) (* APPLESTUFF MUSIC ROUTINE *) 
END; 
WRITELN ("PROGRAM COMPLETED SUCCESSFULLY ^) 
END. (* MAIN PROGRAM *) 


С: Uses individual procedure to call APPLESTUFF routine, which 
allows unit to be released and then reloaded. 


PROGRAM EXAMPLEB; 
USES APPLESTUFF; 
VAR I: INTEGER; 


PROCEDURE PLAY; 
BEGIN 

WRITELN (I,^ ~,MEMAVAIL,~ WORDS”); 

NOTE (25,1) (* APPLESTUFF MUSIC ROUTINE *) 
END; 


BEGIN (* MAIN PROGRAM *) 
CONT) 
WRITE (“NUMBER OF WORDS AVAILABLE AT START OF PROGRAM : ^); 
WRITELN (MEMAVAIL); 
FOR I:=1 TO 100 DO PLAY; 
WRITELN (“PROGRAM COMPLETED SUCCESSFULLY”) 
END. (* MAIN PROGRAM *) 
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USING A SINGLE DISK SYSTEM 


On a single drive Pascal system, each major function (the editor, filer, 
compiler, assembler, etc.) should have a "stand-alone" diskette, which 
Should consist of everything necessary to allow the system to function 
without swapping diskettes. For example: 


A stand-alone editor system could be configured as: 


SYSTEM. PASCAL 

SYSTEM.MISCINFO 

SISIEM.;EDIIOR 

SYSTEM.FILER 

<plus text files to be edited» 


А stand-alone compiler system could be configured as: 


SYSTEM.PASCAL 


SYSTEM.MISCINFO 

SYSTEM.LIBRARY 

SYSTEM.COMPILER 

SYSTEM.LINKER 

SYSTEM.EDITOR (optional for debugging) 
SYSTEM.SYNTAX (also optional) 

<plus the file to be compiled» 


SYSTEM.APPLE does not have to be placed on the disk since it ís loaded 
only during the initial boot; however, by making it resident, each disk 
would be fully capable of a cold start (power-up or RESET). 
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SENDING OUTPUT TO THE PRINTER 


Data can be directed to the printer and to other system devices from a 


Pascal program with the addition of a few statements. For example, let's 
print a string on the printer: 


PROGRAM DEMO; 


VAR REPORT: TEXT; 
ANSWER: STRING; 


BEGIN 
WRITE(^STRING TO PRINT : ^); 
READLN(ANSWER) ; 
REWRITE(REPORT, "PRINTER: ^"); 


WRITELN(REPORT,ANSWER) 
END. 


To change devices, simply change the "PRINTER: in the rewrite statement 


to the name of the output device. The program APPLE3:DISKIO is an example 
of writing to a disk file. 


To transfer a text file to the printer, use the Filer "T" function. For 
example, to print the contents of GRAFDEMO.TEXT (found on APPLE3:), type 
"Т", followed by "APPLE3:GRAFDEMO.TEXT,PRINTER:". (Dont include the 


quotation marks.) The directory of APPLE3: can be printed out by typing 
"E", followed by "APPLE3:,PRINTER:". 
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DIFFERENCE BETWEEN REPEAT..UNTIL AND WHILE. «DO 


Pascal supports two forms of conditional loop: REPEAT..UNTIL and 
WHILE..DO. A loop of the form 


REPEAT 


UNTIL <condition> 


will be executed at least once, even though the condition is satisfied 
when the loop is initially entered. 


The loop consisting of 


WHILE <condition> DO 


Will be executed only if the condition is satisfied when the loop is 
entered. See pages 22 and 23 of the Pascal User Manual and Report. 
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JAN 
OCT 
OCT 
JAN 


JAN 
OCT 
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УС 404 Terminal Setup Parameters 


Move Cursor Home CTRL-Y (25) 
Move Cursor Right CTRL-U (21) 
Move Cursor Up CTRL-Z (26) 
Non-printing Character Er (63) 
PREFIXED[Delete Character] FALSE 
PREFIXED[Editor "Accept" Key] FALSE 
PREFIXED[Editor “Escape” Key] FALSE 
PREFIXED[Erase Line] FALSE 
PREFIXED[Erase Screen] FALSE 
PREFIXED[Erase to End of Line] FALSE 
PREFIXED[Erase to End of Screen] FALSE 
PREFIXED[Key for Break] FALSE 
PREFIXED[Key for Flush] FALSE 
PREFIXED[Key to Move Cursor Down] FALSE 
PREFIXED[Key to Move Cursor Left] FALSE 
PREFIXED[Key to Move Cursor Right] FALSE 
PREFIXED(Key to Move Cursor Up] FALSE 
PREFIXED[Key for Stop] FALSE 
PREFIXED[Key to Delete Character] FALSE 
PREFIXED[Key to Delete Line] FALSE 
PREFIXED[Key to End File] FALSE 
PREFIXED[Move Cursor Home] FALSE 
PREFIXED(Move Cursor Right] FALSE 
PREFIXED(Move Cursor Up] FALSE 
PREFIXEDfNon-printing Character] FALSE 
Screen Height 24 

Screen Width 80 

Student FALSE 
Vertical Move Delay 19 
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NESTING PASCAL PROCEDURES AND FUNCTIONS 


Apple Pascal will allow nesting of procedures inside functions and 
functions inside procedures. Procedures and functions may be nested up to 
15 deep. 


Segment procedures and segment functions may be nested up to six levels 
deep, although the resultant code will not be nested. Please refer to the 
Apple Pascal Language Reference Manual for more details on segmentation. 
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MEMORY SPACE AVAILABLE 


The maximum space in Pascal version 1.1 is about 37K with the command ievel 
swapping OFF, and nearly 4@K with swapping ON. Please refer to the Appie 
Pascal Update addendum for further information about the swapping option. 


А "stack overflow" execution error is caused by literally running out of 
room while the program is being executed. When the Program Stack pointer 
and the Top-of-Heap pointer cross, the system has used all the menory 
available, and the attempt to use more causes the error message to appear. 
This situation can occur in many ways, but the two most common causes wiii 


be discussed here. 


Probably the most common situation is found when the program is using the 
TURTLEGRAPHICS library unit. In order to protect the hi-res page from 
being overwritten by program code or by data, the graphics unit sets the 
heap pointer to above the hi-res area. This insures that the system will 
not attempt to use that area, since it has already been allocated. 
However, this has the effect of reducing the available memory bv a 
significant amount, and a stack overflow situation will occur more 


frequently because of this. 


А second, fairly common situation is found when attempting to open a disk 
file. If you have a program which is aiready quite large, any attempt to 
allocate a large block of memory can trigger the stack overflow. Before 
the operating system can open the disk file, it must read in the directory 
of the volume. This is a 2K block of information whose memory space is 
allocated at the time of the disk access. Therefore, if there isn't enough 
space for the directory, the system will report tne error. 


The Pascal intrinsic function MEMAVAIL can be used to report the current 
number of words available to your program. The value of MEMAVAIL wiil масу 
depending upon the size of your program, library; units calied, aud пеар 
utilization. 


If a stack overflow execution error occurs, piace i wRITELN (MEMAVALL: 
statement immediately before the point at whith the error occurs. сле 
value returned will indicate whether the error is due to runniag out ot 
memory, or due to some other problem not yet uncovered. If the value ої 
MEMAVAIL drops below about 1924 words, the next directory access will 
trigger the error condition. А large program can often be restructured so 
that memory usage will be more efficient. 
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IMMEDIATE MODE EXECUTION 


Apple Pascal does not have an “immediate mode” where program instructions 
can be executed individually, since it is a compiled language. The command 
line is used for accessing specific system functions such as the Compiler, 
Editor, Filer, Assembler, or Linker. 
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PASCAL TURNKEY SYSTEM 


A Pascal turn-key system сап be created by transferring the desired program 
code file to the BOOT diskette, and changing the code file name to 
SYSTEM.STARTUP. If no file by that name is present on the boot volume, the 
system will default to the command line. 


A SYSTEM.STARTUP code file can be executed from the command line by typing 
"X" (Execute) "SYSTEM.STARTUP." (notice the trailing period). The final 
period prevents the operating system from appending the .CODE suffix to 
the file name before executing. 


APPLE TECH NOTES Copyright (C) 1981 by Apple Computer, Inc. 


Loa ФЕ "ЫШЫ, "“ кәне анна өне” "| ec E ln AA ee ee че “інен «Ж» ee ee ақыр ағы г ee bm a ee ee қа ce ЦИ көне чынын ds: ce cee ee ee ss A «ЖЕР eee eee чины — — — es — ee es ee ee m qup dn E. A 


тәй жал кәне очир «ғап mis а иь AGER чир y al GE “ШЕР ЧУН emm dan ЊЕ че ERA UE CUP ge um кезі» ЧЕ “ШЕР UR cp m ER END AER GE UD UA UR GU am a d RR UNA am Cam c coco c ——— => — —— — —À — ш ша m m A “7 : 


EXTERNAL REFERENCES 


The use of "external" linking in Apple Pascal is restricted to assembly 
routines. Pascal (P-code) procedures which are to be compiled separately 
should be put into a library unit and accessed through the "USES" command. 


Assembly code may also be placed into library units, provided it is called 
from the Pascal level. Assemble the code file(s), and then create a Pascal 
unit which refers to each .PROC and .FUNC of the assembly code as 
"external". To create an intrinsic unit which contains assembly code, link 
the external references to the compiled P-code unit structure, and then 
install this completed unit in the SYSTEM.LIBRARY on your boot disk. 


Regular units which contain references to assembly code are not linked 
prior to installation in the library file. Instead, install the unlinked 


Pascal unit structure in the library (either SYSTEM.LIBRARY or your own 
library file), and keep the assembly code file(s) on hand. When the host 


program is linked with this regular unit, also link the assembly routines 
into the final code file. 
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MAKING А COPY OF THE “BASICS” DISKETTE 


The Language System and DOS 3.3 diskette named BASICS is a 16 sector PASCAL 
Format diskette and should be copied using the PASCAL Filer Transfer or the 
DOS 3.3 COPY program. FID will not be able to copy this diskette. 
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CHAINING IN PASCAL 


Pascal version 1.@ does not allow one program to call (run) another 
program. А program containing segment procedures can be used to simulate 
chaiaing. 


Version l.l of Apple Pascal contains the library unit CHAINSTUFF, which 
will allow chaining without the use of segment procedures. Please note 
that this type of chaining does not preserve the variable space. Refer to 


the Apple Pascal Language Manual addendum for more information about 


chaining. 
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TERMINAL DRIVER PACKAGE FOR PASCAL 


P.I.T.S. is a terminal driver packages with upload and download functions. 


The package will also allow Pascal to support the Hayes Micromodem ТТ. 
For more information, please contact: 


Craig Vaughan 

Software Sorcery Inc. 

7927 Jones Branch Drive, Suite 4900 
McLean, VA 22102 

(703) 385-2944 
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BOOLEANS 


In Pascal version 1.0, the Boolean operator, NOT, does not invert the 
Boolean variable correctly. For example, NOT FALSE doesn't equal TRUE. 
It is suggested that the “NOT” be replaced by 


IF A=TRUE THEN A:=FALSE ELSE A:-TRUE 
when working with Booleans in version 1.0. 


Booleans will work correctly in version l.l. Please refer to pages 8-9 of 
the Pascal Update addendum for a description of the corrections made to 
Booleans. 
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PASCAL LONG INTEGER COMPARES - VERSION 1.0 ONLY 


An error in the implementation of Pascal long integers results in a stack 
crash during a compare operation (version 1.0 only). The attached program 
will repair the LONGINTEGER module in the 1.0 SYSTEM.LIBRARY. The problem 
has been corrected in Pascal version 1.1, so that long integers will work 
as expected. 


THIS PROGRAM IS PROVIDED FOR VERSION 1.0 SYSTEMS ONLY, AND SHOULD NOT BE 
USED ON VERSION 1.1. 


СТЭТЕЯ) 
PROGRAM FIXCOMPARE; 


TYPE DISKINFO = RECORD 
DADDR: INTEGER; 
LENG : INTEGER 
END; 


NAME = PACKED ARRAY [1..8] OF CHAR; 


SEGDIC = RECORD 
DINFO: ARRAY [0..15] OF DISKINFO; 
SEGNAME: ARRAY [0..15] OF NAME; 
FILLER: ARRAY [1..416] OF INTEGER 
END; 


BLOCK = PACKED ARRAY [@..511} OF 0..255; 


VAR I,J: INTEGER; 
NOTFOUND: BOOLEAN; 
Fs. FILE: 
5: STRING; 
BLOCKZERO: SEGDIC; 
DATA: BLOCK; 


PROCEDURE READERROR; 

BEGIN 
WRITE (“BAD BLOCK IN LIBRARY”); 
EXIT (PROGRAM) 

END; 


(Continued) 
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BEGIN 
NOTFOUND:=TRUE; 
REPEAT 
WRITE (“NAME OF LIBRARY FILE:^); 
READLN (5); 
RESET (F39); 
UNTIL EOF OR (IORESULT=4); 
IF BLOCKREAD (F,BLOCKZERO,1,0)<>1 THEN READERROR; 
FOR 1:=0 TO 15 DO 
BEGIN 
ТЕ BLOCKZERO.SEGNAME[I]-^LONGINTI^ THEN 
BEGIN 
NOTFOUND:=FALSE; 
J:=BLOCKZERO.DINFO[1] .DADDR+1; 
IF BLOCKREAD (F,DATA,1,J)<>1 THEN READERROR; 
IF DATA[495]=244 THEN 
IF 0АТ4(49%1-208 THEN 
BEGIN 
WRITELN (“LONG INTEGER PATCH BEING MADE”); 
DATA[494]:=249; 
IF BLOCKWRITE (F,DATA,1,J)=1 THEN 
WRITELN € “PATCH COMPLETE”) 
ELSE 
WRITELN (“ERROR WHILE WRITING PATCH, SEGMENT 7,1); 
END 
ELSE 
IF DATA[4941224À0 THEN 
WRITELN (^SEGMENT ^,I, 
^ - LONG INTEGER UNIT HAS ALREADY BEEN FIXED”) 
ELSE WRITELN (“САХТ RECOGNIZE’, 
^ LONG INTEGER UNIT IN SEGMENT ^,I) 
ELSE WRITELN (^CAN^^T RECOGNIZE”, 
^ LONG INTEGER UNIT IN SEGMENT 7,1) 


1 
i 


END 
ENJ? 
IF NOTFOUND THEN WRITELN (“NO LONG INTEGER UNIT FOUND”) 
ELSE 
WRITELN ("PROGRAM COMPLETE”) 
END. 
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THE KEYPRESS FUNCTION 


KEYPRESS is a widely used function which resides in the unit APPLESTUFF. 
In many cases, it is the only routine being called from the unit, so it 
may be more efficient to refer to the routine without also loading the 
rest of the unit. 


The attached listing is the function KEYPRESS, which can be assembled for 
linkage to your host program as an “external” function. Follow the 
instructions provided with the examples shown on pages 136-182 of the 
Pascal Operating System Reference Manual. 


.FUNC КЕҮРКЕ55,0 ‚Ö words of parameters passed 
KAR IR KR RIK EEEE EE EEEE EEE EEE EEEE 22 EEEE EEE 
E 
^ FUNCTION KEYPRESS: BOOLEAN; EXTERNAL 
‚ж 


) 
: X ko ex e e ke e c ke ke e e e A A A e e e x An Ae Bàn A n A x A xA A A A xn x 


RETURN «EQU O ¡Storage for return address 


CONCKVEC.EQU PBFYA ¡Fixed address in BIOS 

RPTR .EQU ØBF18 ‚Fixed buffer pointer 

WPTR .EQU PBF19 ;Fixed buffer pointer 

VERSION .EQU PBF21 «System version number 

KEYBOARD.EQU C999 «Keyboard hardware 

CONCK ЕСІ фЕЕ5С ‚Way to get CONCK in old system 
(Continued) 
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PLA 
STA RETURN 
PLA 
STA RETURN+1 
PLA 
LA 
PLA 
PLA ;Pop 4 bytes stack bias for function 
LDA #0 
РНА ;Return HSB zero 
LDA KEYBOARD 
BMI TRUE 
LDA VERSION 
BNE $1 ;Jump if not original Pascal version 
JSR CONCK 
JMP 52 
Sl JSR CONCKVEC ‚Check console 
S: LUA RPTR 
СМР wPTR sChar in buffer? 
BEY EMPTY 
ЕБЕ LDA #1 ‘Yes, return KEYPRESS=TRLE 
BNE KPDONE ;Always taken 
ak ie LDA +0 ;No, return REYPRESS=FALSE 
КРОМЕ PHA ;Push LSB result 
LDA RETURN+1 
PHA ‚Restore return address 
Lda RETURN 
РНА 
RTS 


-- - 
- 


ead 


(Continued) 
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The following sample program illustrates the use of KEYPRESS as an 
externally linked routine. Follow the instructions given on pages 136-182 
of the Pascal Operating System Reference Manual for assembling and linking 


external code. 
PROGRAM PRESSTEST; 
VAR I: INTEGER; 


FUNCTION KEYPRESS: BOOLEAN; EXTERNAL; 


BEGIN 
І:-0; 
КЕРЕАТ 
WRITELN (I); 
геге 
UNTIL KEYPRESS 
END. 
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THE SCAN FUNCTION 


The Pascal SCAN function scans a range of memory, searching for a specified 
target. The function takes the form 


SCAN (LIMIT, PEXPR, SOURCE) 


where LIMIT is the number of bytes to be scanned, PEXPR defines the target 
of the scan, and SOURCE is the variable being scanned. Pages 51-52 of the 
Pascal Language Manual describe this function in greater detail. 


SCAN can be used on any variable except file types. When scanning a string 
(S, for example), SOURCE should be specified as 5[1], to avoid having SCAN 
also look at the length parameter stored іп 5[0], which will usually yield 
an erroneous value. 
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TRUNC AND ROUND FUNCTIONS 


The Pascal TRUNC and ROUND functions are present in Apple Pascal. The 
ROUND function is of the form I:=ROUND(R) where I is an integer and К is a 
real number. Although the compiler will accept other forms of this 
command, this is the only legitimate form. 


TRUNC takes the form I:=TRUNC(R) where I is an integer and В is a real 
number, and I:=TRUNC(L) where L is a long integer. In all cases, integer 
values must be in the range -32767 to +32767. If the long integer L is 
greater than MAXINT, a value range error will be returned. The compiler 
may accept other forms of this function, but these are the only correct 
forms according to UCSD definitions. 
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TTLOUT : 


The Pascal TTLOUT procedure in the version 1.0 unit APPLESTUFF (in the 
SYSTEM.LIBRARY) does not function properly. The routine can be assembled 
and linked externally, using the listing and example shown on pages 136-182 
of the Apple Pascal Operating System Reference Manual. 


This problem has been corrected for version l.l, so that TTLOUT will 
function correctly from APPLESTUFF. If desired, TTLOUT can still be 
assembled and linked externally, to avoid using all of APPLESTUFF. 
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THE CALC UTILITY 


APPLE3:CALC.CODE allows the evaluation of simple arithmetic expressions, 
using +, -, *, / and (). Trignometic functions and exponentiation will 
cause the program to abort with ап "unimplemented instruction” error. To 
exit the program, simply press RETURN in response to the prompt. Please 


refer to pages 216-218 of the Pascal Operating System Reference Manual 
for a more detailed discussion of the CALC program. 
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PROPOSED ISO STANDARDS FOR PASCAL 


For information on the proposed ISO standard for Pascal, please write to: 


Dr. Carol Sledge, Chairman X3J9 Committee 
On-Line Systems Гас. 

115 Evergreen Heights Drive 

Pittsburgh, PA 15229 

(812) 931-7600 
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CONVERTING STRINGS TO NUMERIC VARIABLES 


Apple Pascal doesn't allow input editing for integer or real variables. 


This can cause a lot of trouble if the wrong data is entered by mistake: 
either the program is stuck with bad data, or worse yet, the system may 
crash. 


STRINGSTUF is an intrinsic unit which is designed to avoid this problem. 
All data is entered in the form of strings, then converted to the 
appropriate data format by the unit. This allows input editing while the 
data is in string form. 


NOTE: The STRINGSTUF unit and accompanying demo program are designed to 
run in Pascal version 1.1 only. Long integers are not supported іп 
STRINGSTUF. 


STRINGSTUF may be located in any unused segment number 1/-31. Install the 
unit in the SYSTEM.LIBRARY following the instructions ia the Pascal 
Operating System Refereuce Manual, pages 186-193. 


(%55%%) 
(*SLPRINTER:*) (* Get а compile listing..optional *) 


UNIT STRINGSTUF; INTRINSIC CODE 260; 
INTERFACE 
ТҮРЕ STRING255-STRING[255]; 


FUNCTION STRFP (VAR STR:STRING255; VAR FP:REAL): BOOLEAN; 
FUNCTION STRINT (VAR STR:STRING255; VAR INT:INTEGER): BOOLEAN; 


IMPLEMENTATION 
FUNCTION STRFP; (* String to Real *) 


CONST MAXREAL-1.79E37; (% Max/10 *) 
MINREAL-1.2E-37; (% Міп/10 %) 


VAR DEC,DEX,EDP,INX,LEN: INTEGER; 
DP,EX,IM,MN,MX,SN: BOOLEAN; 


CH: CHAR; 
NUMERIC ,EXPONENT,MODIFIER: SET OF CHAR; 


(Cont inued) 
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PROCEDURE TERMINATE; 
VAR I: INTEGER; 
BEGIN 
ТЕ MX THEN DEX:=-DEX; 
EDP:=EDP+DEX-DEC; 
IF EDP«Q 
THEN FOR І:=1 TO -EDP DO 
IF FP>=MINREAL THEN FP:-FP/19.9 
ELSE FP:=® (* Underflow => Ø *) 
ELSE FOR I:=1 TO EDP DO 
IF FP<=MAXREAL THEN FP:-FP*19.9 
ELSE EXIT (STRFP); (* Overflow *) 
IF MN THEN ЕР:=-ЕР; 
STRFP:=TRUE; 
EXIT (STRFP) (% Successful conversion *) 
END: 


PROCEDURE SEARCH; 
DEGIN 
WHILE INX<=LEN DO 
IF STR[INX] IN NUMERIC 
THEN BEGIN 
(*SR-*) 
WHILE (INX>1) AND (STR[INX-1] IN EXPONENT+MODIFIER) 
Sat) 
DO INX:=INX-1; 
EXIT(SEARCH) (* Found start of number *) 
END 
ELSE INX:=INX+1; 
EXIT (STRFP) (% Non-numeric string *) 
END; 


BEGIN (*STRFP*) 
МОМЕ а ТСЕ 727971; 
EXPONENT:=[ Е“, е]; 
MODIFIER:=[ 7+7 ,7=7,7.7,7,7]; 
DP:=FALSE; EX:=FALSE; IM:=TRUE; 
MN:=FALSE; MX:=FALSE; SN:=FALSE; 
DEC:=@; DEX:=ß; EDP:=@; ІМХ:=1; 
LEN: =LENGTH(STR); FP:=ß; 
STRFP:=FALSE; 
SEARCH; (* Find start of number *) 
WHILE INX<=LEN DO BEGIN 
CH: STR(INX]; 
IF CH IN NUMERIC+EXPONENT+MODIFIER 
THEN BEGIN 
IF CH IN NUMERIC 
THEN IF EX 
THEN BEGIN 
IF ОЕХ<1000 THEN (* Exponent *) 


(Continued) 


APPLE TECH NOTES Copyright (C) 1982 by Apple Computer, Inc. 


— көне жәні ca “інін yes ee ey m т - a . “ - «аш —— ee «нән даши “кән ee ee a— ту “у “7 AND "МЫШЬ х “ “ ee ee ee c ccc c a cmd ee ra оғы» сы» ИНЬ HP чыш WE dir ees шы 


DEX: =DEX*1@+0ORD(CH)-ORD(“97); 
SN: =TRUE 
END 


ELSE BEGIN 
IF FP<1.0E8 
THEN (* Mantissa *) 
FP:=FP*18+0RD(CH)-ORD( ^97) 
ELSE EDP:=EDP+1 ; 
IF DP THEN (* Digits to right of DP *) 
DEC:=DEC+1; IM:=FALSE; 
SN :=TRUE 
END 
ELSE CASE CH OF 
^t^: IF SN THEN (* Duplicate 747 sign *) 
TERMINATE 
ELSE SN:=TRUE; 
7-7; IF SN THEN (* Duplicate ^-^ sign *) 
TERMINATE 
ELSE BEGIN 
IF EX THEN MX:=TRUE 
ELSE MN:=TRUE; 
SN:=TRUE 
END; 
^.^: IF DP OR EX THEN (* Duplicate 7.7 %) 
TERMINATE 
ELSE DP:=TRUE; 
^E^,^e^: IF EX THEN TERMINATE (% Duplicate “E” *) 


ELSE BEGIN 
IF IM THEN (* Implied mantissa *) 
FP:=1.9; 
EX:=TRUE; 
SN:=FALSE 
END; 
END; (*CASE*) 
INX:=INX+1 
END 
ELSE TERMINATE (* End of number *) 
END; 
TERMINATE (* End of string *) 


END; 


FUNCTION STRINT; (* String to Integer *) 
VAR FP: REAL; 


BEGIN 
STRINT:=STRFP (STR,FP); (* First convert to real *) 
IF ABS(FP)<=MAXINT 
(Continued) 
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> 
THEN INT:-ROUND(FP) (* then round to integer *) 
ELSE BEGIN 
STRINT:=FALSE; (* Integer out of range *) 
INT: =0 -y 
END 
END; 
BEGIN (* Unit Initialization *) 
END. 
\ 
е 
J 
A 
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This sample program illustrates the use of STRINGSTUF. The compiler $V- 
option is required to override the normal string length checking. 


LR. 
PROGRAM STRINGTEST; 
USES STRINGSTUF; (* tests StringStuf library unit *) 
VAR INPUT,STR: STRING; 
INT: INTEGER; 
FP: REAL; 
BEGIN 
PAGE (OUTPUT); 
WRITELN (^STRINGSTUF STRING => NUMERIC CONVERSION:^); 
REPEAT 
WRITELN; 
WRITE (“STRING : ^); 
READLN (INPUT); 
C*SV=*) 
IF STRFP (INPUT,FP) THEN 
BEGIN 
WRITELN (^ REAL: ^,FP); 
IF STRINT (INPUT,INT) 
THEN WRITELN (^INTEGER:  ^,INT) 
ELSE WRITELN(^INTEGER: OUT OF RANGE.” ) 
END 
ELSE WRITELN(^NO NUMERIC VALUE IN STRING.” ); 
CESV+*) 
-" UNTIL INPUTs^^ 


END. 
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INTRINSIC UNIT FOR SILENTYPE PROCEDURES 


Appendix D (pages 53-59) of the Silentype reference manual indicates that 
all the parameter procedures can be placed into an intrinsic library unit. 
This is a handy and valuable unit to have if you plan to use the Silentype 
printer in a Pascal program. 


To extend the usability of the Silentype unit, two procedures have been 
added to this listing, and another has been changed. These procedures will 
be discussed here; please refer to the Silentype manual for a description 
of the remainder of the routines. 


PROCEDURE SETPAGE (PAGE: INTEGER) 


This procedure will allow you to change from one hi-resolution graphics 
screen to the other, although only the first hi-res page is used in the 
Pascal system. 
Values: l=first page 

2=second page 


PROCEDURE COLDSTART 


The COLDSTART procedure will reset all the Silentype parameters to the 
default values as specified in the printer manual. This procedure is 
equivalent to turning off the power to the printer. 

Values: попе required. 


PROCEDURE WARMSTART 


The RESTORE procedure as listed in the Silentype manual has been revised 
and renamed WARMSTART. Included in the revision is the SETPAGE procedure. 
This procedure differs from COLDSTART in that the parameters set by 
WARMSTART are user-definable; that is, they may reflect the particular 
setup that you find most applicable to your needs. (For instance, you may 
want a darkness setting of 3 instead of 5.) 


(Continued) 
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INITIALIZATION CODE 


The initialization code consists of a call to the COLDSTART procedure. 
This will be executed when the unit is first brought into the system from 
the librarv. This will insure that the printer does not have any unwanted 
values remaining from previous usages in either Pascal or in Basic. If 
desired, you may change this to WARMSTART or other code, or leave the 
initialization section empty (but the BEGIN and END must be present). 


INSTALLING THE UNIT 


The Silentype unit is ready to type in, compile, and install in your copy 
of SYSTEM.LIBRARY. You may wish to change the INTRINSIC CODE value, or the 


contents of WNARMSTART to suit your individual needs. Refer to pages 

186-193 of the Apple Pascal Operating System Reference manual for 
instructions for the LIBRARY orogram which will place the compiled Silentype 
unit into your SYSTEM.LIBRART. 


(8359) 
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PROCEDURE ROMENABLE; 

SROCEGLRE SETBYTEVALUE (LOC,VALUE: INTEGER); 
NCCT Oy BYTEVALUR Culos ОА INTEGER; 
PROCEDURE SEND (CH: CHAR); 

PERU, Cuna SETUNIDIRECT; 

RUE oS ЕВРЕЕВ 22 

Pose LES, UNRIDIREGIS-BOOLEAN 

PROCEDURE SETNECATIVE; 

PROCERES SEIPOSITIVE 

FUNCTION NEGATIVE: BOOLEAN; 

PROCE E ЗЕТРАСЕ (PAGE: INTEGER); 

PROCEDURE SETDARK (DARKNESS: INTEGER); 
FUNCTION DARK: INTEGER; 

PROCEDURE SETFORM (LENGTH: INTEGER); 
FUNCTION FORM: INTEGER; 

PROCEDURE SETSPACE (LENGTH: INTEGER); 
FUNCTION SPACE: INTZGELRn; 

FUNCTION LEFTMARGIN: INTEGER; 

FUNCTION RIGHIMARUIN: INTEGER; 

PROCEDURE SETLEFTMARGIN (POSITION: INTEGER); 
PROCEDURE SETRIGHTMARGIN (POSITION: INTEGER) ; 
PROCEDURE. FRINIBLFEER; 

PROCEDURE CLEARBUFFER; 

PROCEDURE. FORMFEED: 


ro ғо гу 
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PROCEDURE PRINTPIC; 
PROCEDURE COLDSTART; 
PROCEDURE WARMSTART; 


IMPLEMENTATION 


PROCEDURE ROMENABLE; 
CONST ROMSOFF= -12289; 
ROMON= -16128; 
ТУРЕ WINDOW= PACKED ARRAY [0..0] OF @..255; 
VAR ADDR: INTEGER; 
P: “WINDOW; 
BEGIN 
ADDR:=ROMSOFF; 
MOVELEFT(ADDR,P,2); 
Р7(0|:-0; 
ADDR:=ROMON; 
MOVELEFT(ADDR,P,2); 
Р^{@|:=@ 
END; 


PROCEDURE SETBYTEVALLE; 
ТУРЕ WINDOW= PACKED ARRAY [0..0] OF @..255; 
VAR ADDR: INTEGER; 
P: “WINDOW; 
BEGIN 
ROMENABLE; 
ADDR: =LOC; 
MOVELEFT(ADDR,P,2); 
Р“[ф]:=УАМЈЕ 
= 40: 


FUNCTION BYTEVALUE; 
ТҮРЕ WINDOW= PACKED ARRAY [@..@] OF 0..255; 
VAR ADDR: INTEGER; 

P: “WINDOW; 
BEGIN 
ROMENABLE; 
ADDR:=LOC; 
MOVELEFT(ADDR,P,2); 
BYTEVALUE: =Р^ [0] 
END; 


PROCEDURE SEND; 
CONST PRINTUNIT= 6; 


BEGIN 
UNITWRITE(PRINTUNIT,CH,1,9,12) 
END; 
(Continued) 
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PROCEDURE SETUNIDLRECT; 
CONST МАХВУТЕ= 255; 
DIRECTION- -12529; 
BEGIN 
SETBYTEVALUE(DIRECTION,MAXBYTE) 
END; 
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PROCEDURE SETBIDIRECT; 
CONST MINBYTE- f; 
DIRECTION- -12529; 
BEGIN 
SETBYTEVALUE(DIRECTION,MINBYTE) 
END; 


FUNCTION UNIDIRECT; 
CONST MAXBYTE- 255; 
MINBYTE- 0; 
DIRECTION- -12529; 
BEGIN 
CASE BYTEVALUE(DIRECTION) OF 
MINBYTE: UNIDIRECT:-FALSE; 
MAXBYTE: UNIDIRECT:=TRUE 
END 
END; 


PROCEDURE SETNEGATIVE; 
CONST MINBYTE- f; 
FLIP- -12524; 
BEGIN 
SETBYTEVALUE(FLIP,MINBYTE) 
END; 


PROCEDURE SETPOSITIVE; 
CONST МАХВУТЕ= 255; 
FLIP= -12524; 
BEGIN 
SETBYTEVALUE(FLIP,MAXBYTE) 
END; 


FUNCTION NEGATIVE; 
CONST MAXBYTE- 255; 
MINBYTE- 0; 
FLIP= -12524; 
BEGIN 
CASE BYTEVALUE(FLIP) OF 
MINBYTE: NEGATIVE:-TRUE; 
MAXBYTE: NEGATIVE:=FALSE 
END 
END; 


PROCEDURE SETPAGE; 
CONST GRAPHPAGEs -12525; 
BEGIN 
IF PAGE-2 THEN РАСЕ:=64 
ELSE РАСЕ:=32; 
SETBYTEVALUE( GRAPHPAGE , PAGE) 
END; 


(Continued) 
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PROCEDURE SETDARK; 
CONST INTEN= -12528; 
BEGIN 
IF DARKNESS<® THEN DARKNESS:=P; 
IF DARKNESS>7 THEN DARKNESS:=/7; 
SETBYTEVALUE( INTEN, DARKNESS ) 
END; 


FUNCTION DARK; 
CONST INTEN= -12528; 
BEGIN 
DARK: =BYTEVALUE( INTEN) 
END; 


PROCEDURE SETFORM; 
CONST FORMLENGTH= -12531; 
BEGIN 
IF LENGTH<@ THEN LENGTH:=ß; 
ТЕ LENGTH>255 THEN LENGTH:=255; 
SETBYTEVALUE( FORMLENGTH , LENGTH) 
END; 


FUNCTION FORM; 
CONST FORMLENGTH- -12531; 
BEGIN 
FORM: =BYTEVALUE( FORMLENGTH) 
ZND; 


PROCEDURE SETSPACE; 
CONST INCR= -12530; 
BEGIN 
IF LENGTH<1 THEN LENGTH:=1; 
IF LENGTH>252 THEN LENGTH :=252; 
SETBYTEVALUE( INCR,LENGTH) 
END; 


FUNCTION SPACE; 
CONST INCR= -1253ß; 
BEGIN 
SPACE:=BYTEVALUE(INCR) 
END; 


FUNCTION LEFTMARGIN; 
CONST LMAR= -12527; 
BEGIN 


LEFTMARGIN: =BYTEVALUE( МАК) 
END; 
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FUNCTION RIGHTMARGIN; 
CONST RMAR- -12526; 
BEGIN 
RIGHTMARGIN: =BYTEVALUE( RMAR) 
END; 


PROCEDURE SETLEFTMARGIN; 
CONST LMAR= -12527; 
BEGIN 
IF POSITION>=RIGHTMARGIN THEN POSITION:=RIGHTMARGIN-L; 
IF POSITION<® THEN POSITION: =; 
SETBYTEVALUE( LMAR, POSITION) 
END; 


PROCEDURE SETRIGHTMARGIN; 
CONST RMAR= -12526; 
BEGIN 
IF POSITION<=LEFTMARGIN THEN POSITION: =LEFTMARGIN+1 ; 
IF POSITION>83 THEN POSITION: =83; 
SETBYTEVALUE(RMAR , POSITION) 
ZND; 


PROCEDURE PRINTBUFFER; 
CONST СЕ= 6; (* ASCII FOR CONTROL-F *) 
BEGIN 
SEND(CHR(CF)) 
END; 


PROCEDURE CLEARBUFFER; 
CONST PRINTUNIT- 6; 
BEGIN 

UNITCLEAR( PRINTUNIT) 
END: 


PROCEDURE FORMFEED; 
CONST FF= 12; (% ASCII FOR FORM-FEED *) 
BEGIN 
SEND(CHR(FF)) 
END; 


PROCEDURE PRINTPIC; 

CONST CQ» 17; (% ASCII FOR CONTROL-Q *) 

VAR BIDIRECT: BOOLEAN; 

BEGIN 
IF UNIDIRECT=TRUE THEN BIDIRECT:=FALSE ELSE BIDIRECT:=TRUE; 
IF BIDIRECT THEN SETUNIDIRECT; 
SEND(CHR(CQ)); 
IF BIDIRECT THEN SETBIDIRECT 

END; 
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PROCEDURE COLDSTART; 
CONST MINBYTE= фр; 
DEFAULT= -12506; 
BEGIN 
SETBYTEVALUE( DEFAULT ,MINBYTE) 
END; 


PROCEDURE WARMSTART; 

BEGIN 
SETBIDIRECT; 
SETPOSITIVE; 
SETPAGE(1); 
SETDARK(5); 
SETFORM( 49); 
SETSPACE(2); 
SETLEFTMARGIN( 2); 
SETRIGHTMARGIN(81); 

END; 


BEGIN (% INITIALIZATION SECTION *) 
COLDSTART ; 
END. 


APPLE TECH NOTES Copyright (C) 1981 by Apple Computer, Inc. 


iil кн кн "'Àà «к ec кәне өне” i ЧР A—— X “7 e ee ee ee онын cuum ommum __-_ _ ee De dim ee m Ine ЫЬ. “E 2 A «жи» 7 m 


Issued 21 May 82 Pascal II Page 6100.934.01 


=m жәна cs је sl cs ЗА “АБ НЕ es es m am «нын es s uia GN ge my M&G ҰШЫР PEN HP AN a MN m Mehr cule da sum unde cuum cum uum ee си m um m «қар и 


OPERAND FORMATS 


A useful and often important piece of information concerns the internal 
Structure of Pascal variables. This information can be very useful when 
sending data (especially complex data formats such as strings) to an 
assembly routine from a Pascal host program. This article describes a few 
of the more commonly used variable types. For a complete description of 
the more complex variables, including records and arrays, see pages 227-228 
of the Apple Pascal Operating System Reference Manual. 


Machine language (assembly) routines are commonly used when speed is 
critical, and when the code must access other assembly routines such as 
PROMs or 1/0 drivers which can’t be re-assembled as part of the program. 
Also, bit manipulations such as right-shift are much easier to do in 
assembly than in Pascal. 


In the UCSD Pascal system, it’s a fairly simple matter to create short 
assembly programs which can be linked into a Pascal host program. In some 
cases, it may be sufficient to merely call the assembly routine; however, 
most routines require data in order to be useful. The means by which data 
is passed to or from these routines is called a "parameter". 


A parameter is a temporary variable created by Pascal for the purpose of 
passing data to or from a subroutine. The term "VAR parameter" implies 
that the address of the actual variable is passed to the subroutine as a 
parameter instead of its value. 


Certain types of variables may be passed by value, but any variable may be 
passed by name by simply declaring it to be a VAR parameter. Pascal does 
not allow parameters of variable length (with the exception of certain sets 
and long integers) to be passed on the CPU stack, since this could exceed 
the stack capacity and crash the operating system, so these parameters are 
automatically used as if defined as VAR parameters. A good explanation of 
the various ways of passing parameters may be found in Peter Grogono’s 
book, “Programming in Pascal”. 
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Before delving into the details, lets define some terms and conventions 
which we 11 use later on: 


BIT = a binary digit (0 or 1). A bit is the smallest unit of 
information which can be stored in a computer. 

NYBBLE = 4 bits (half a byte). А hexadecimal digit is one 
nybble (pronounced "nibble"). 

BYTE = 8 bits (2 nybbles). This is the unit of storage which the 
6502 processor uses. 

WORD = 2 bytes (16 bits). А word is the unit of information which 
Pascal uses. 

LSB = least significant bit 

MSB = most significant bit 


decimal 65535 $ 
hexadecimal SFFFF <----------- memory------------ > 50000 addresses 
MSB LSB 
This diagram of memory structure will be used in describing the variable 
formats. Usually, when you write down a number, you write it from left to 
rizht. !lowever, Pascal reads data from memory from right to left starting 


at the least significant byte. 


INTEGERS 


Integers, іп UCSD Pascal, are whole numbers іп the range of -32768 to 
+32767. They are stored in one word (2 bytes). Negative integers are 
represented in "two’s complement", which means that they appear to have 
positive values (> 32767). By subtracting 2 7 16 (65536) from this positve 
value, the negative integer is revealed. Similarly, large positive 
integers are stored as a complementary negative numbers (remember Integer 
3asic?). The sign bit (MSE) is 0 if positive, 1 if negative. 


(ran byte----------- ? (A и Byte > 
13 NT e . . * * 8 7 + . » ” * “ 2 «== 16 bits 
SIGN INTEGER VALVE 

“Example: the number 3 is represented in binary as: 


MSB f 9 0 D P 9 D 0 0 0 Db D D 1 1 LSB 
However, -3 shows up as 

[584 КОГ О do x, d a Lp clo dl р A ESA 
which also reads as 65533 (or 65536-3)! 


Integers may be passed by value or as VAR parameters. 
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REALS 


Real number, in UCSD Pascal, are floating point numbers in the range of +/- 
1.17550Е-38 to +/-3.40282Е+38. Real numbers use four bytes (2 words). The 
binary representation is similar to the proposed IEEE standard for floating 
point numbers: 


31 30 . “ . . . + 23 22 . + + * + a » . ” 0 <== 32 bits 
SIGN EXPONENT MANTISSA 


"Mantissa" is the name given to the decimal portion of a number which is 
expressed in scientific (exponential) notation. The "exponent" indicates 
the power to which the mantissa is raised. The exponent is represented in 
base 2 (2^n). In decimal, the number 3 x 1072 can be seen as a mantissa of 
3, an exponent of 2, in base 10 (decimal). 


The sign bit refers to the sign of the mantissa, and is 9 if positive, 1 if 
negative. The exponent is "offset" by 127; that is, a value of 127 in the 
exponent field corresponds to an exponent of Y. Similarly, if the value is 
1, the exponent is -126, and if the field is 254, the exponent is +127. А 


value of O indicates that the real number is f. 


The mantissa of the real number is stored in normalized format in bits 
2-22. “Normalizing” a number means adjusting it so that the highest bit is 
significant (a 1). The exponent indicates how many times (and in which 
direction) the value was shifted during normalization. 


Notice that the MSB of the mantissa of any non-zero number which has been 
normalized is always a one. The number zero can be treated as a special 
case bv simply setting the exponent to zero. 50, to gain additional 
srecision, the mantissa has an implied “1” which is not stored, resulting 
in a functional 24-bit mantissa, even though only 23 bits are actually 
used. This gives slightly more than 6 decimal places (single precision) 
accuracy. 


Io make this clearer, lets look at some examples: 


Real number = 1 
MSB 4 91111111 00000000000000000000000 LSB 


Exponent = 127 (270) Mantissa = 1 (the implied 1 isn't stored) 


Real number = -9.9 
MSB 1 10000010 00111100110011001100119 LSB 
Exponent = 130 (273) Mantissa = 999900915 


[п the second example, the real number (in binary) appears аз 1001.1110011 
etc.. During normalization, the decimal point is moved to the left 3 times 
(incrementing the exponent), and the most significant bit becomes implied. 
The sign bit is 1, indicating that the number is negative. 
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Real numbers may be passed by value, or may be defined as Vin parameters 
and passed by address. 


CHARACTERS 


Characters, by ASCII definition, are simply integers in the range of 2 to 
255. Characters take up one word of storage. The ASCII value of the 
character is stored in the least significant byte. The most significant 
byte is not used by Pascal and should be ignored. 


Ы: зы ж A mo 7 . . 0 <== 16 bits 
unused ASCII 


EXAMPLE: the character "A" has an ASCII value of 65 (hexadecimal 41). 
Represented in binary, this would бе: 


MSB x x x x x x x x @ 1 6 p 000 1 LSB 
С6----- aot used------ > + fhex) 1 


ғ 


Characters can be passed as either actual parameters (pass by value) ог УАҚ 
parameters (ess by address). 


1 


STRINGS 
А string is a packed array of characters which can be from one со 220 5vtes 
long. The first byte of a string always contains a umber Irom й to 252 


which indicates the length of the string. One character is stored per 
byte, and the string ends on a word boundary; that is, if tne last 
character in the string is the first byte of a new word, the other byte of 
the word is also reserved, but is not used by the string. 


Each character of the string сап be accessed in a pacxed array о: 
characters; however, you cannot access the length буја . the ¿tna a@istent;. 


> 
Doing so will promptly generate the messaze: 


EXAMPLE: The string “ABCD” has a length of 4 and wouid look like this: 


S[4] 5[3] 31.4] 94.4. 510] 
MSB 01000100 1000011 01000010 (619004001 20000140 228 
IT p рУ Ж. ts 4 


Pascal always passes strings by address, since the length aay vary. 
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POINTERS 


Address pointers are UNSIGNED integers which occupy 1 word of storage. The 
format is the same as for integers, except that the values range from 2 to 
65535. The value of a pointer, in this implementation of Pascal, is the 
memory address of the object being described. 


EXAMPLE: The address of AND (one of the annunciator ports) is hex C658 
(5923) decimai). This would be stored as: 


” 


“SB i 1 £6 O p A 0 0 Ø 1 0 1 р р 9$ LSB 


WA. a AO 
Lanz intesers аге а 522121 type of variable which was first defined at 
ОЗ. as cart oci 2.16 extensions to the Pascal language. They are 


primarily used to handle calculations involving numbers which cannot be 
rateiv ia floating point (real) format and are too large to 


represenled асс: 
1 


LA 
Store in lateger шак. 


Lone que age ger ca cuc Is 260 Chingry coded. decimal): one саре pez 
nypbie. ге entire word is reserved for the sign of the long integer, and 
the varlabl- œo әле on a word boundary. Four digits can be contained in 


спе wor, so the smallest definable long integer takes up two words of 
ER 3 are padded with leading zeroes when necessary to fill 
Us tite 1891 Mis. The siga will se P if positive and 255 if negacive (one 


To illustrato 5:14, lets take a specific example: the long intege 
-123456 will take 3 words: one for the sign, and two for the 12. since 
they are stored in multiples of +. The format will look like this: 


eit is one nybble “<------- P 
MSB6 5 4 3 2 1 Ø 0 ð D Е Е 
< < sign word > 


Long integers should always be passed by address because they have a length 
which depends sn tneir definition. 
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BOOLEANS 


The Boolean, or binary, variable can have two values: TRUE and FALSE. 
This is most commonly used in determining yes/no conditions such as 
equality or set inclusion. This variable is stored in one word, although 
only the LSB (least significant bit) is used. TRUE is indicated by al, 
and FALSE shows as а f. | 


MSB 15 + » * * + * 8 7 ә “ е • в т 0 LSB 
Boolean 


UCSD Pascal does not allow direct printing of Boolean variables. For 
example; 


PROGRAM PRINTBOOLEAN; 
VAR A: BOOLEAN; 
BEGIN 
А := FALSE; 
WRITELN (А); (* this is illegal *) 
IF A = FALSE THEN WRITELN (“FALSE”) ELSE WRITELN (“TRUE”); 
(* this is correct *) 
END. 


Booleans are most efficient in packed arrays, where each bit of the word is 
utilized. DRAWBLOCK is probably the best-known example of this use. For 
an excellent example of the use of boolean packed arrays, look at the 
program GRAFDEMO on the Apple Pacal diskette APPLE3. 


Boolean variables may be passed by value or by address. 


OTHER TYPES 


In addition to the previously mentioned standard types, Pascal allows the 
programmer to define a wide variety of non-standard variable types. 
Probably the most popular example of this is the set. 


A set is an arbitrary collection of elements, where each element is 
assigned an ordinal position (that is, represented by a number). Each 
element of the set is represented by a name which can be any word of your 
own choosing (except for Pascal reserved words or other variable 
definitions already in use). Each name is then associated with one bit in 
the data definition beginning with bit 9. The set is stored in memory as а 
series of bits which are identified by the ordinal position of the element 
in the type definition. A set must end on a word boundary, so, for 
example, 17 elements would take up 2 words, even though only one bit of the 
second word is actually used. 


(Continued) 
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EXAMPLE: 


TYPE COLORS 


= (RED,GREEN,BLUE,YELLOW,BLACK, WHITE); 
COLORSET = 


SET OF COLORS; 


is a set of colors. Red occupies position f, and white is position 5. 


MSB 002000 2 9 6 6 27 P LSB 


O. (D mre Y 


Sets may be passed either by address or by value, with certain 
restrictions. See page 203 of the Pascal reference manual for details. 


In general, complex record types consist of one or more standard types 


which are stored as described. For the last word on Pascal data types, 
read Niklaus Wirth^s Report in "User Manual and Report" by Jensen and 


Wirth. 


REFERENCES 
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PASCAL RUN-TIME ERRORS 


Run-time errors generate a message plus a set of numbers that indicate 
which instruction was being executed when the error occurred. “5” stands 
for "SEGMENT", "P" for "PROCEDURE", and "I" for "INSTRUCTION COUNT". These 
can be correlated with the textfile by using the System List option (*$L+*) 
ог (*$L<filename>*) when doing a compile. This will produce an annotated 
listing of the text, with the S, P, and I numbers included. 


For example, here is a very simple program which has been compiled with the 
listing option: 


(1) (2) (3:4) (5)<--ТЕХТ----------- > 
1 1 Ll 1 (*SLPRINTER:*) 

2 1 1:0 1 PROGRAM EXAMPLE; 

3 1 Т) 3 

4 1 1:0 3 VAR S:STRING; 

5 1 12D 44 

6 L 1:0 Ø BEGIN 

7 1 121 $ READLN(S); 

8 1 ID 21 WRITELN(S) 

9 1 1:9 40 END. 

KEY: 

(1) Line number of text 
(2) Segment number (Sé) - S£ values which do not appear in your 


listing indicate that the error has occurred in that segment 
of the operating system. S# is SYSTEM.PASCAL, and 17-31 are 
usually SYSTEM.LIBRARY segments. 
Procedure number (P#)- the procedure number within the segment 
designated by the Sf. 
(4) Nesting level (D=declaration) 
Instruction count (ІЙ) - this is the instruction count from 
the beginning of the procedure. The number indicates the 
count at the beginning of each line, so a value between 
two lines simply means that the error occurred in the middle 
of the line. 


өл 
Кад 
а 


А word of warning: When using Apple Pascal Version 1.0, do NOT use $L+ as 
your listing option, as this will result in the loss of your code file and 
possibly your operating system. Instead, name a disk file that will be 
placed on a DIFFERENT volume from the destination of the code file, or 
better yet, use (*SLPRINTER:*) to put the listing directly onto your 
printer. The $L+ option works correctly in version 1.1. 
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REAL NUMBER FORMAT 


Real numbers, in UCSD Pascal, are floating point numbers in the range of 
+/- 1.17559E-38 to +/-3.49282E+38. Real numbers use four bytes (2 words). 
The binary representation is similar to the proposed ТЕЕЕ standard for 
floating point numbers: 


31 36 . æ * . e • 23 22 a . “ * 4 . . . a 0 «== 32 bits 
SIGN EXPONENT MANTISSA 


"Mantissa" is the name given to the decimal portion of а number which is 
expressed in scientific (exponential) notation. The "exponent" indicates 


the power to which the mantissa is raised. The exponent is represented in 
base 2 (2^N). Та decimal, the number 3 x 10^2 can be seen as a mantíssa of 


3, an exponent of 2, in base 10 (decimal). 


The sign bit refers to the sign of the mantissa, and is Q if positive, l if 
negative. The exponent is "offset" by 127; that is, a value of 127 in the 
exponent field corresponds to an exponent of Q. Similarly, if the value is 
1, the exponent is -126, and if the field is 254, the exponent is +127. А 
value of Ø indicates that the real number is 9. 


The mantissa of the real number is stored in normalized format in bits 
0-22. “Normalizing” a number means adjusting it so that the highest bit is 
significant (a 1). The exponent indicates how many times (and in which 
direction) the value was shifted during normalization. 


Notice that the MSB of the mantissa of any non-zero number which has been 
normalized is always a one. The number zero can be treated as a special 
case by simply setting the exponent to zero. So, to gain additional 
precision, the mantissa has an implied "1" which is not stored, resulting 
in a functional 24-bit mantissa, even though only 23 bits are actually 
used. This gives slightly more than 6 decimal places (single precision) 
accuracy. 


Real numbers may be formatted for output using field-width designations. 
As described on pages 36-37 of the Apple Pascal language Reference Manual, 
the output specification has the following form: 


REAL : FIELDWIDTH : FRACTIONLENGTH 


where FIELDWIDTH is the minimum number of characters to be written, 
including the decimal point (default-1), and FRACTIONLENGTH is the number 
of digits to be written after the decimal place (default=5). Thus, a field 
specification of R:8:3 would indicate the real variable R is to be printed 
within a field size of 8 total, with 3 of those digits appearing to the 
right of the decimal. А FRACTIONLENGTH of zero is not allowed. 


If the field size needed to display the variable accurately exceeds the 


formatting specification, the formatting will be ignored. If the size is 
smaller than FIELDWIDTH, the field will be padded with blanks to the left 


of the variable (right-justification). 
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LIBRARY UNITS- 


Modular programming means the separation of procedures and functions, or 
groups of them, from the main program. Source language modules are called 
units, and are incorporated in libraries for use with Pascal programs. 
Units шау consist of procedures, functions, or а combination of these, in 


Pascal and assembly language. 


Separate compilation has several advantages in the development of any 
program, because it allows you to approach the task as a group of smaller 
tasks which are linked together in a logical manner. The host program must 
contain a USES statement to utilize routines from the unit. 


There are two principal kinds of units: Regular units, and Intrinsic 
units. Separate units are not included in the Apple Pascal implementation, 
and will not be discussed. 


REGULAR UNITS 


when а host program USES a regular unit, the unit”s code is physically 
inserted into the host”s codefile by the Linker. Once linked, the files 
need not be relinked unless either the unit or the host program is modified 
and recompiled. 


Regular units, since they become part of the host file, may have references 
to file names. A regular unit under Pascal version 1.1 can use another 
regular unit, or it may use an intrinsic unit. RESTRICTION: In version 
1.0 of the Apple Pascal system, regular units may NOT use intrinsic units. 


Recular units may be installed in the SYSTEM.LIBRARY, or in any other 
library file. ТЕ installed in an alternate library, the uses statement 
should include the compiler option $0 <library name> before the unit name. 


INTRINSIC GNITS 


An intrinsic unit is pre-linked; that is, it contains sufficient 
information to allow the host program to use it without invoking the 
Linker. The code for an intrinsic unit remains in the SYSTEM.LIBRARY, and 
is loaded into memory from the library before the host program begins its 
actual execution. This keeps the size of the host program down; it also 
allows the unit and host program to be modified and recompiled individually 
without the need to link. 


(Contínued) 
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Intrinsic units must be installed in the SYSTEM.LIBRARY. Ап intrinsic unit 
can USE another intrinsic unit, but may NOT use a regular unit. 


RESTRICTION: Intrinsic units may not have references to files (such as 
data files)in Pascal version 1.0. 


ASSEMBLY ROUTINES AS PARI ОЕ UNLIS 


Assembly language routines may be placed into library units. With 
intrinsic units, the unit is compiled, the machine language routines 
assembled, then the assembled code is linked to the unit PRIOR to 
installing the unit into the SYSTEM.LIBRARY. 


Regular units may also contain machine language routines; however, these 
routines are NOT linked to the unit before it is installed in the library. 
Instead, the host program, the unit, and the assembly routines are linked 


together at the same time. 


ADDITIONAL NOTES ON THE. CONSTRUCTION OF A UNIT 


Any unit which does not contain at least one procedure in the INTERFACE 
section is not allowed to have an IMPLEMENTATION section. You must include 
the initialization section (BEGIN..END.), however. 


Procedures Listed in the INTERFACE section are public to the host program 
as well as to the unit. Those procedures listed only in the IMPLEMENTATION 
section cannot be accessed by the calling program (private). If no 
procedures are listed publicly, thea none can be called from the host, and 
the IMPLEMENTATIUN section із not allowed. 


Any intrinsic unit which contains a global variable, either public (defined 


in the INTERFACE) or private (defined in the IMPLEMENTATION), MUST have а 
data segment. Lack of a needed data segment will resuit іп a system error. 
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GENERAL FORMAT OF UNITS 


The following example is designed to illustrate the general structure of a 
unit. The line numbers at the left of the page are for reference, and are 
not part of the actual structure. Discussion of the format will refer to 
the line numbers. 


Lr Ң75577) 
2: UNIT < name >; INTRINSIC CODE xx DATA yy; (* DATA yy is used 
only if a data segment is required. *) 


3: INTERFACE 
4: USES < name of unit to be used >; 


CONST < definitions >; 
TYPE < definitions >; 


іл 
.. 


VAR < definitions >; 


6: PROCEDURE ONE (I:Integer); 
PROCEDURE TWO (I:Integer); (* External procedure ж) 
UNCTION THREE (I:Integer) : Integer; 
FUNCTION FOUR (I:Integer) : Integer; (* External function *) 


7: IMPLEMENTATION 


8: CONST < definitions >; 
TYPE < definitions >; 


y VAR < definitions >; 
10: PROCEDURE ONE; 

BEGIN 

END; 


PROCEDURE TWO; EXTERNAL; 
FUNCTION THREE; 
BEGIN 
END; 
FUNCTION FOUR; EXTERNAL; 
112 BEGIN 


(* initialization section *) 
END. 


(Continued) 


APPLE TECH NOTES Copyright (C) 1982 by Apple Computer, Inc. 


= ads ЕР ЕР = мән => A 
nn ль p am ee ee ee ee а «ы “т ee о ee ee es ee — ee A ee — — — à тигар — ce и о по Eee ee ee _ ee —— a ә ӘӘ 


es ee ИР а ққ ME: dA у ту ту тј A md CENA MUS AU к ii ee е —— u m чіл РА «Жы «жәе чаши ЧИР Í— ii 


DISCUSSION 


1: The swapping option is required when compiling ANY unit, regardless 
of its size. This is the most common cause of compiler failures when 
working with units. The option should be the first line of text, preceding 
the UNIT header and any other compiler option. 


2: The word INTRINSIC is required if the unit is to be intrinsic. DATA is 
optional, used only if a data segment is necessary (see /5 below). Regular 
units use only the UNIT < name > portion of this line. 


3: INTERFACE is required. It defines the start of this section, which 
must contain some entries (a totally empty INTERFACE section is not 
allowed). This section contains the information which is public to the host 
program as well as the unit (and visible from the LIBMAP program). 


4: These entries are optional. If used, they are public (see #3). If 
a nested unit is used, it MUST be declared at this point, and the host 
program must also declare it in it^s USES statement before declaring this 
unit (see pages 75-81 in the Pascal Language Reference Manual). 


5: VARs are also optional. If VARs are used in an intrinsic unit, а LATA 
segment MUST be declared, since these are global variables. 


6: These are the public statements of the unit^s procedures and functions. 
All parameters MUST be declared in this section, and must not appear in the 
IMPLEMENTATION. EXTERNAL may not be specified at this point (see #12). 


7: IMPLEMENTATION is required. This section contains the code generating 
statements, and any private types or variables to be declared. ТЕ an item 
is declared in this section only, it is local to the unit and cannot be 
accessed from the host program directly, and is not visible to 1 :ВМАР. 


8: CONST and TYPE definitions are optional. If included at this point, 
they are private and will not be visible to the calling program. 


9: VARs are optional, and are private if defined at this point. А BALA 
segment is required if global VARs are specified in the IMPLEMENTATION 
section of an intrinsic unit, even though they are private. 


lØ: These are the actual code generating procedures. Procedures and 
Functions already declared in the INTERFACE section may not have parameters 
listed here, as this would be a duplication. EXTERNAL references are 
specified at this time. 


11: This is the initialization section. Code in this portion is optional, 
but the BEGIN and END statements must be present in any event. The final 
END statement must be followed by а "." to indicate the end of the text. 
Code placed in the initialization section will be executed immediately upon 


access to the unit (through the USES statement in the host program), and 
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ignored thereafter. An example of this is TURTLEGRAPHICS, where the 
initialization code is responsible for allocating the hi-res page so that 
variables will not be lost. 
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RESIDENT COMPILER OPTION 


The Linker incorrectly resolves Regular Units resident in other Regular 
Units. The Compiler assigns temporary segment numbers to Regular Units at 
compile time. These temporary segment numbers are used by the Linker 

to resolve the resident command, with varying results (always incorrect). 


The suggested work-around is to specify the segment number as resident 
rather than the segment (unit) name. For example {SR 8}. 
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STR FUNCTION 


The LONG INTEGER unit of the SYSTEM.LIBRARY is used whenever the program 
uses the STR function or contains Long Integers. Programs that use the STR 
function must have the LONG INTEGER unit available in either the system 
library or a program library. 
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ERROR NUMBERS - RUNTIME PASCAL 


Apple has a special version of Pascal for applications programs that 
doesn't require a Language Card, called Runtime Pascal. Any errors that 
the programmer доезп Е catch will stop the program with an error number 
that reflects the error number from page 289 of the Apple Pascal Operating 
system Manual plus 10). For example, a file not found error would cause 
error 110. 
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WRITE STATEMENT, THE FIELD SPECIFIER 


The field specifier in the WRITE statement allows fixing the number of 


decimal places of a real number that will be printed. However, a field 
specifier of 0 wont work. 


WRITELN (REAL:5:@); doesn’t work 
WRITELN (REAL:5:1); does 


See page 36 of the Apple Pascal Language Reference Manual for more 
information. 
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INTERRUPTS 


Pascal 1.1 will work with interrupts. Interrupts are disabled when Pascal 
boots and the IRQ vector at SFFFE,FFFF points to the system 
re-initialization routine. You can write an assembly language routine that 
will point the IRQ vector to your interrupt handler and enable interrupts. 
Refer to the Language Card manual for how to write to the IRQ vector. 


The disk routines in Pascal 1.1 are protected from interrupts during their 


time-dependant code. However, Pascal 1.0 doesn’t protect it’s disk routines 
and interrupts aren't recommended in that environment. 
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Normally, typing control-shift-M will generate the "3% character. however, 
Pascal l.l has the capability to read the SW2 input on the Game 1/0 
connector to simulate a normal typewriter shift key. Some paddle and 
joysticks on the market also utilize SW2 and cause Pascal to assume that the 
shift key is always pressed. Try removing any devices you have connected to 
the Game 1/0 connector to see if this is true for you. 


Refer to vage 2 or the Apple Pascal Update booklet that comes with the 
software. (Apple Part %030-0154-0)) 
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SHIFT KEY MOD 


The shift key mod that Pascal 1.1 mentions is a wire from the shift key on 
the keyboard to the the SW2 input оп the Game 1/0 connector. I recommend 
that people with newer machines connect the keyboard end of the wire to pin 
24 of the connector between the keyboard and the encoder board. When it’s 
wired up, turn on the Apple and type in this Basic program to test it: 


10 X = PEEK (-16285) 

26 IF X > 127 THEN AS = "UP ^" 
30 IF X < 128 THEN AS = "DOWN" 
40 УТАВ PEEK (37) 

50 PRINT “THE SHIFT KEY IS "; 4$ 
60 GOTO М 


(1 
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TURTLEGRAPHICS-- CIRCLES 


The program at the end of this note is designed to draw a circle, but it 
doesn’t. It draws an octogon. The drawing routines can calculate exactly 
where the end of the line will be but with a move of only one dot, the 
result will be limited to one of the eight adjacent dots. For example, if 
we move a distance of one dot at an angle of five degrees then the 
co-ordinates of the destination are X + 0.09, Y + 0.99 which are rounded to 
Х D Y + is 


Calculated Angle Actual Angle 


0 - 22.5 0 
22.5 - 67.5 45 
67.5 - 112.5 90 
119,5 = 157,5 135 

157.5 = 202.5 180 
202.5 - 247.5 225 
а РАНЕ еа 276 
292.5 - 337.5 315 
337.5 = 382.5 p 


This next table will give the calculated and actual X and Y coordinates 


т- 


for an angle of 5 degrees and varying move distances. 


X-Coordinate Y-Coordinate 
love Calc Act Calc Act 
1 90.09 Йй 0.99 1 
2 5.17 2 1.99 2 
3 0.26 ф 2.98 3 
> 0.35 ф 3.98 4 
5 0.43 Ø 4.98 5 
б 0.52 1 5.97 6 


The next diagram simulates the Hi-Res graphics display It's obvious that 
you must move at least 6 units for 5 degrees to show any effect. 


Move 

1 2 3 4 5 6 
k 
Е ж 
ж x E 

х x * ES 

* * E * * 

* k * ж ж ж 
k * ж E ж * 

(Continued) 
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Ав you can see, the computer cant display а 5 degree change unless the 
move is at least 6 units. 


PROGRAM CIRCLE; 


USES TURTLEGRAPHICS; 
VAR I : INTEGER; 


BEGIN 
INITTURTLE; 
PENCOLOR (WHITE); 
FOR Г := 1 TO 8 DO BEGIN 
MOVE (1); 
TURN (1); 
END; 
READLN; 
END 
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DISABLE SLOT 3 TERMINAL INITIALIZATION 


This program will modify the file SYSTEM.APPLE on the boot diskette so that 
Pascal won’t initialize an 80 column card in slot 3. This will allow 
graphics programs to be run without the 80 column card interfering. 


PROGRAM PATCH 49 COL; 
TYPE BYTE = )..255; 


VAR Е : FILE; 
BUFFER : PACKED ARRAY [6..511] OF BYTE; 
BLOCK, BLOCK XFER : INTEGER; 


BEGIN 
WRITELN (CHR (12)); 
WRITELN (“Put disk with "SYSTEM.APPLE" in drive 1*33 
WRITELN; 
WRITELN (“Press RETURN when ready”); 
READLN; 
RESET (Е, ^f4:5YSTEM.APPLE"); 
BLOCK XFER := BLOCKREAD (Е, BUFFER, 1, 3); 


BUFFER[ 327] := 76; (* PATCH #1 *) 
BUFFER[ 328] := 245; 
BUFFER[329] := 254; 
BUFFER{ 384] := 24; (* PATCH #2 *) 
BUFFER[385] := 144; 


BUFFER{[ 386] := 12; 


BLOCK XFER := BLOCKWRITE (F, BUFFER, 1, 3); 
BLOCK XFER := BLOCKREAD (F, BUFFER, 1, 4); 
BUFFER[201] := 24; (* PATCH #3 *) 
BUFFER[282] := 144; 

BUFFER[283] := 12; 

BUFFER[ 345] := 24; (* PATCH #4 *) 


BUFFER[346] := 144; 
BUFFER[347] := 14; 


BLOCK XFER := BLOCKWRITE (F, BUFFER, l, 4); 
CLOSE (F, LOCK); 
WRITELN (“Done”) 

END. 
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When SEEKing to a record that has been added to the file since the last 
RESET, SEEK will either take a very long time to find the record or Pascal 


will stop with a SYSTEM FAILURE. 


This commonly happens when a file is extended using PUTs and then SEEK is 
used to access one of the new records. Further operations on the file may 


trash it. 

В. LE OG К NUMBER 
тата 
| | 
| Original file | New information 
| 





| 

| 
| | 
| | 
EOF when RESET Current EOF 


In this example, a SEEK to a record in the last half of block 2, block 3 or 
block 4 will cause undesirable results. 


If you must extend a file and then SEEK to one of the new records, RESET 
the file before doing the SEEK. 
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SYSTEM.MISCINFO 


The SETUP program will accept a value between ® and 255 decimal for the 
Vertical Move Delay field. Номеуег, values greater than 11 decimal are 
truncated to 10 decimal in the "SYSTEM.MISCINFO” rile. 
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INCLUDE DIRECTIVE 


The PASCAL compiler "Include" directive (*$I<filename>*) causes the named 
file to be inserted into the compilation at that point. Similarly, the 
assembler directive ".INCLUDE <filename>” is used to insert files during 


assembly. 
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COMPILER - SWAPPING 


[he PASCAL compiler swapping option (%55%%) should be used if the compile 

fails and trashes the system. This option should be the first line of the 
text, preceding the program statement. Swapping MUST be used in compiling 
units. Please see page 91 of the Apple Pascal reference manual. 
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NUMERICS 


The function 10 ^ X is not part of the UCSD PASCAL definition. The system 
intrinsic "PWROFTEN" returns 10 ^ X, provided X is an integer in the range 
0..37. Refer to page 45 of the Apple Pascal Language Reference Manual. 


The function "EXP" (in TRANSCEN) is of the form e ^ X, where X is a real 
number. The relationship between 10 ^ X and e ^ X is: 


1g ^ X =e ^ (X ln 19) (ln = natural log) 
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HI-RES CHARACTER SET 


SYSTEM.CHARSET is used by the WCHAR and WSTRING procedures in TURTLEGRAPHICS 
t> write textual information on the Hi-Res Graphics screen. Іс is a file of 
14:4 bytes, arranged in a logical sequence of 128 X 8 bytes, to represent 
tto ASCII character sat. Each character is drawn from bottom to top, so 
byte f would be the bottom line of dots in the character.  Drawblock uses 

ЕУ со characters, so they should be accessed and treated as any other 
drawblock unit. 
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INTRINSIC UNITS - DATA SEGMENT 


Intrinsic units which use GLOBAL variables, either public (defined in 
interface) or private (defined in implementation), MUS: have a data segment 
in addition to the code segment. ünder some circumstances the compiler may 
fail to give an error message if the data segment is omitted, and the system 
will crash when the unit is used. 
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FORMAL PARAMETERS 
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Strings can be passed to and from functions or assembly language routines by 


using formal parameters (pass by address). If a formal parameter is changed 
within a procedure or function, it/s value will remain changed when the 


procedure or function ends. 


An example of passing a string is listed below. 


Since functions cannot return a non-scalar variable, a procedure with formal 


parameters works just as well. 
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PROGRAM PASS; 
VAR S: STRING; 


PROCEDURE STUFFIT (VAR 5: STRING); 
(* the "VAR" denotes a formal parameter *) 


BEGIN 
S:="THIS IS A STRING’; 
END; 


BEGIN 
5:=77; (* just to prove the string is empty *) 
WRITELN (5); 
STUFFIT (5); 
WRITELN (5) 
END. 
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READING DOS 3.3 DISKETTES 


Both Pascal and DOS 3.3 use the same recording format on the diskettes. 
Pascal can read a DOS diskette with the UNITREAD procedure, but there is a 
hitch. Pascal uses 512 byte blocks while DOS uses 256 byte sectors. The 
following table shows the correspondence between Pascal's block number and 
DOS^s track and sector numbers. Columns 4 and 5 refer to bytes 0..255 of 
the block and columns 2 and 3 refer to bytes 256..511. 


(1) (2) (3) (4) (5) 
BLOCK TRACK SECTOR TRACK SECTOR 
6 1 Ø 1 Е 
7 1 D 1 С 
8 1 В 1 А 
9 1 9 1 8 
1$ 1 7 1 6 
11 1 5 1 4 
12 1 3 1 2 
13 1 1 1 Е 
14 2 ф 2 Е 


The rest of the disk is arranged the same except the track number increases. 


Refer to Apple Tech Note 3700.044 to read Pascal diskettes under DOS. 
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ERROR MESSAGES 


The message "ERROR: WRITING OUT THE FILE. PRESS <SPACEBAR> TO CONTINUE." 
can be generated in one of three ways. First, file names are restricted to 
16 characters, not including the volume name prefix, or the .TEXT suffix. A 
name longer than that will generate the error immediately, without accessing 
the disk drive. 


Secondly, and more commonly, if there is insufficient room on the root disk 
to save the new file, this message will be reported. When updating the 
workfile, Pascal always saves the new copy of the file before removing the 
previous copy, so the possibility of insufficient space may occur at this 
time. 


The last, and by far the least common, is that if the directory is full (77 
entries), even if there is enough room on the disk, no additional files can 
be saved. 


А "No room on volume" error, or "code write error" can be generated іп 
Pascal if there isn't sufficient room to write the file to the specified 
volume. This error can occur in the Filer, Compiler, Assembler, or Linker, 
and can usually be corrected by using the Filer "Krunch” option (to 
consolidate unused blocks), or removing unnecessary files. 


"Code write error" can occur in the Assembler (and occasionally in the 
Compiler) when creating a code file on the boot disk. The Assembler creates 
a temporary file called LINKER.INFO on the boot disk, that stores linkage 
information which is later written into the final block of the code file. 
During an assembly when the code file is directed to the boot disk, the 
largest unused block of disk space is opened for the code file. If the disk 
has been Krunched recently, this may result in no space available for 
opening LINKER.INFO, and thus the error message. In this case, it would be 
better NOT to Krunch the disk, but if that's already been done, simply 
"Make" an 8-block file оп the boot disk, then Make a l-block file (names 
unimportant). Then Remove the 8-block file. This separates the space into 
two distinct areas so that no conflict arises. This can also hold true for 
the Compiler, but much less often, since the only time LINKER.INFO is 
created is during very large compiles when the system needs to swap some 
information out temporarily. 


If an error occurs when using the include file option, "Маке" a 4-block file 
on the volume where the compiler resides, and name it SYSTEM.SWAPDISK. This 
allows the compiler to swap out some information in order to read in the new 
directory in preparation for the include file. 


The Pascal (version 1.0) compiler error #467 ("Too Many Libraries") can 


usually be avoided by changing the length of the text file being compiled. 
Pascal version l.l has corrected this problem. 
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INVERSE VIDEO - 


Apple Pascal version 1.1 supports normal and inverse video on the standard 
4#-column Apple screen, which are used to indicate lower and upper case, 
respectively. Flashing mode is not supported. Program control of normal 
and inverse characters is not supported. 


Additional information about upper/lower case support is listed on pages 
9-10 оғ the Addendum to the Apple Pascal Operating System Reference Manual. 
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COMPILER OPTIONS 


The Pascal compiler swapping option (%55%%) should be used it the compile 
fails and trashes the system due to lack of symbol table space. This option 
should be the first line of the text, preceding the program Statement. 
Swapping MUST be used in compiling units. Please see page 68 of the Apple 
Pascal Language Reference Manual. 


The Pascal compiler list option (%514%) should not be used with Pascal 
version 1.Й, since this will result in the loss of the code file and 
possibly of the directory. Instead, direct the list to the printer (#51. 
Printer:*), the console (*SL Console:*), or to a named file ON ANOTHER 
VOLUME: for example, (*SL Mydisk:Myfile.text*). Use of the printer is 
recommended. This problem has been corrected in Pascal l.l, and will work 
as described in the Pascal reference manuais. 


The (*55-*) "lex level" compiler option will result in a non-executable 
“odefile, and should not be used for compiling user programs. This option 
is intended for working on the system level, and requires files and 
information not available to the user. 


Compiler options in Pascal version 1.0 are required to be in capitals. In 
version l.l, capitals and lower case are interchangeable. 
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UPPER AND LOWER CASE IN PASCAL 1.1 


Apple Pascal version 1.1 supports upper and lower case through the standard 
Apple keyboard and display. When enabled, upper case will be displayed as 
inverse video, with lower case as normal video. In this mode, all input 
will be lower case (normal video) unless а CTRL-W ог CTRL-E is typed. 


Version l.l also has the capability of sensing the shift key if the key is 
wired to SW2 on the game 1/0 connector. In this case, pressing the shift 
key will close SW2, and Pascal will shift to upper case as long as the shift 


is held down. 


A number of game I/O devices can interfere with this function, however, 
preventing normal upper/lower case from being used, despite the control 
functions typed. The SW2 sensing will override the control characters used 
from the keyboard. ТЕ Pascal 1.1 will not generate anything except upper 
case, try removing whatever device has been plugged into the game 1/0 port, 
and try typing again. 
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